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I. DECISION-MAKING AND ARTIFICIAL INTELLIGENCE 



A. PROBLEM REPRESENTATION 

There is a fairly general and Important class of problems 
which can be represented in the form of a tree structure [1] . 
This class of problems Includes applications such as problems 
in chess, geometry and indefinite integration. The tree 
structure of this class of problems is formed as follows: 

The problem is represented in a state space such that the 
initial state is the problem state and the solution is the 
goal state. In order to reach the goal state it may be 
necessary to pass through one or more sub-goal states. If 
the states are represented as nodes, and all possible move- 
ments from one node to another are represented by branches, 
then the problem description is a tree structure as shown in 
Figure 1. The nodes at level L+1 generated from a node at 
level L are known as first successor nodes. Thus in Figure 
1 nodes 11, 12 and 13 are first successors to node 01. 

Generation of all possible successor nodes from any 
given node in a tree is known as complete node expansion. 

One approach to general problem solving is to expand the 
problem node into a set of first successor nodes, then ex- 
pand each of the successor nodes, and so on until either the 
goal state - node - is reached or all possibilities are ex- 
hausted. Implicit in this technique is a test conducted at 
each node to determine whether the goal state has in fact 
been reached. 
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TREE STRUCTURE 




Figure 1, 



9 



It Is not difficult to see that a general tree structure 
expands exponentially. That is, if each node has n successor 
nodes, then the number of nodes at each level L - with L=0 
for the initial node - can be expressed as n^. 

For problems with n or L - or both - large, exhaustive 
search of the tree as proposed above becomes impossible, even 
if the search is carried out by a high-speed computer. The 
problem is said to suffer from- combinatorial explosion. 

Problems with very large search trees form a set of very 
difficult and interesting problems, particularly from the 
standpoint of programming their solution on a computer. Many 
of these large problems represent areas v\;here human beings 
can cope very well. Examples Include theorem-proving, sen- 
tence-parsing, the recognition of cursive script, chess and 
language translation. Research on the solution of this kind 
of problem by computer has come to be known as the study of 
Artificial Intelligence. 

B. ARTIFICIAL INTELLIGENCE 

As an example of an Artificial Intelligence problem, con- 
sider the game of chess. Chess can be represented by a tree 
with each board position a node and each possible move a 
branch. As in all tv/o-person competitive game trees, since 
each person makes a decision only at every alternate level, 
the term ply has come into use as a descriptor of a player's 
decision levels. Each level therefore represents h, ply, and 
each player will make a decision at ply n from his starting 
node, where n=l,2,3,... 
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Each node In chess typically generates around 30 succes- 
sors [2]. The complete game tree in chess is, for all prac- 
tical purposes. Infinite. Yet men play chess, and some men 
play It very well. 

It Is known [ 3 ] that even chess grand masters search 
fewer than 100 nodes before arriving at a decision for a 
move. Modern chess programs search many thousands of nodes, 
and yet their most successful -level of play Is only at the 
high amateur level [4]. 

The crucial aspect Is that the grand master searches 
only a small portion - Indeed a fraction too small to be 
measured - of the tree, but he somehow selects the most pro- 
ductive branches on which to carry out his limited search. 

The process of eliminating branches from consideration for 
further search Is known as pruning, and the process whereby 
one branch Is selected for action Is known as declslon-maklng. 

The main purposes of the study of Artificial Intelligence 
are to understand human Intelligence, to find rules of de- 
clslon-maklng which can be used by a computer, and to use 
machine Intelligence to solve difficult problems [ 5 ]* 

1 . Human Decision-Making 

As explained above, the process whereby one branch 
from a node Is selected from others for action Is known as 
declslon-maklng. Human beings make decisions In complex 
ways which are little understood. 

One branch of Artificial Intelligence is Interested 
In determining how the human brain makes decisions . Re- 
searchers who study man's declslon-maklng processes make use 



11 



of a technique known as protocols. In using the protocol 
method the researcher observes the subject thinking aloud 
while trying to solve a problem. In chess, this method 
has extended to study of the eye movements of grand masters 
while contemplating play. From the study of protocols, re- 
searchers construct a computer program model of the problem- 
solving techniques displayed, and note how the results of 
their program differ from that of the human subject. 

2 . Machine Decision-Making 

The other branch of Artificial Intelligence is in- 
terested only in obtaining intelligent behavior from a com- 
puter. A researcher from this school is not concerned 
whether the structure of his program in any way resembles 
the human decision-making process. He is concerned with 
results . 

One method used by researchers of this school is 
that of heuristic programming. A heuristic [6] is a rule of 
thumb, strategy or trick which is used to ehance the decision 
making process of a computer program. Related to the word 
*'eureka,” - from the Greek heuriskein, serving to discover - 
a heuristic is a technique used by the computer programmer, 
not by the computer. 

In order to attack Artificial Intelligence problems 
by computer, the problem must first be structured in such a 
way that the computer can deal with it. Since computer's can 
only perform a strictly defined and limited set of operations 
it is the task of the computer program to present the problem 
as a series of operations which the machine can carry out. 
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The programiner uses heuristics when he translates a complex 
problem Into a series of machine operations. 

An example of a heuristic used In chess Is a 
method to determine control of the center of the board. A 
programmer could use the heuristic that occupation of a ma- 
jority of the center four squares on the board by, say. 

White represents control of the center by White. Based on 
this heuristic, the programmer would instruct the machine 
to determine which player - if any - has more pieces on the 
center four squares. If the heuristic is a good one, then 
the answer computed by the machine will be equivalent to 
the determination of center control by a grand master. 

In most problems of Artificial Intelligence, the 
programmer v;ill use many such heuristics in an attempt to 
enable the computer to evaluate a node and to decide which 
branch from that node is most likely to lead towards the 
goal state. The combination of a number of heurlstlcally 
programmed operations used to evaluate a node is known as 
an evaluation function. 

The basic idea of heuristic programming is to use 
information derived from the problem to guide the search 
through the problem nodes in such a way as to limit the 
number of nodes searched while still successfully finding 
the goal state (node). 

Heuristic search may be either breadth-first or 
depth first. If all first successors of each node are 
searched before more nodes are generated, then the resulting 
search is called a breadth-first search, as shown in Figure 
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2. If the search proceeds from one of the first successors 
to following levels before visiting other nodes at the early 
levels, it is termed a depth-first search, as shown in 
Figure 3* Roughly speaking, a breadth-first procedure 
generates from the top, while a depth-first procedure gen- 
erates from the left. 

There are two general methods of tree pruning widely 
used in heuristic programming. The first involves depth- 
first search v/hereln the last node generated - for example 
node 7 at level 3 in Figure 3 - is assigned a value based 
on the computer's evaluation function. Based on this value, 
the predecessor node at level 2 (node 2) is assigned a value, 
and so on until the initial node is reached. This process 
is called "backing-up" the value of one node to its prede- 
cessors, and if, based on the value backed-up to the initial 
node, this whole branch (nodes 1 to 7) is eliminated from 
further consideration then it is said that the tree has been 
pruned by backward pruning. 

The second method of tree pruning is to use informa- 
tion available at a node to eliminate from consideration 
some branches emanating from that node. This technique is 
known as forvjard pruning. 

A widely used method of backward pruning in game 
trees is known as the alpha-beta procedure. The procedure 
functions, as follows: Consider the diagram of Figure ^1, 

which represents a game tree wherein the square nodes are 
the position at which it is Player A's turn to move, and 
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the round nodes are the positions at which it is Player B’s 
turn to move. Player A is the computer. 

At the initial node. Player A has two options 
(branches) leading to nodes PI and P2 . The computer has 
obtained a (possibly backed-up) value for node PI of Vl=3. 

The alpha-beta procedure sets alpha=3 at P2. Now when iiode 
P21 is generated and evaluated, and the value V21 is found 
to be less than alpha, the procedure is said to have found 
an alpha cutoff. That is, the computer does not bother to 
generate nodes P22, P23,... and their successors, because 
it is already evident that node P2 is worse for Player A than 
node PI, since it is now known that Player B at node P2 has 
at least one choice which will result in a node of value less 
than that resulting from any possible branching from node PI. 
Therefore Player A should choose the branch to PI as his 
next move . 

Similarly, in Figure the computer has assigned a 
(possibly backed-up) value of Vll=4 for node Pll. This 
value becomes the beta value for the nodes P121, P122, etc. 
Thus when the computer finds node P121 with a value of V21=8 
greater than beta, it finds a beta cutoff. That is, it does 
not generate and evaluate node P131- Here again, it is as- 
sumed that Player B acting at node PI will not choose the 
branch to node P12, because there is at least one successor 
to P12 which is greater in value than any of the successors 
of Pll. 

Note that this procedure depends on the accuracy and 
validity of the evaluations at each node. That is, if the 
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Figure 5 • 
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heuristics used to generate the values are incorrect or in- 
complete, then the numbers assigned to each node become at 
best- less meaningful, and the procedure may fail. 
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II. ADAPTIVE LOGIC 



As described above, the success of the alpha-beta pro- 
cedure - and indeed of any tree-search procedure - depends 
upon the validity of the evaluation function used to assign 
a value to a node. Thus one of the most difficult tasks 
facing the Artificial Intelligence programmer Is the selec- 
tion and generation of an evaluation function. 

One method used to generate evaluation functions is to 
select a set of heuristics applicable to the problem, pro- 
gram the resulting operations and generate from the results 
of computation a set of parameters which describe the problem 
state. The values of the parameters - If they are correct 
and complete - can then be combined to form an evaluation of 
any node In the tree. 

The set of the values of heurlstlcally generated param- 
eters can, of course, be combined In many ways. One method 
could be simply summing the values to obtain a total value 
for the node. Another method, more commonly used. Is to form 
a weighted sum of the parameter values wherein the weights 
can be adjusted to obtain better results. A computer model 
of this technique Is knov;n as an adaptive logic element. 

A. ADAPTIVE LOGIC ELEMENTS 

Adaptive logic elements have been studied and analyzed 
for a number of years. These elements have found particular 
usefulness In the field of trainable pattern classifying 
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systems [7]. Training algorithms for these elements exist 
and are well-defined. 

. Figure 6 is a diagram of an adaptive linear threshold 

logic element, or Adaline [8]. The Inputs to the Adaline 

form a vector X., each element of which is multiplied by the 

1 

corresponding element of a weight vector W.. The output of 

J 

T 

the summer is then a scalar y. with the value y.=X. W.. 

J J J 

Note that the first input is always +1; because of 

this the zeroth weight element w . controls the threshold 

oj 

of the Adaline. Thus the output y. is biased by the value 

J 

w .. The output sum y. is now fed to the quantizer which pro- 
o J J 

duces the quantized output of the Adaline, q.. 

J 

The adaptation machinery receives as Inputs X., y., q. 

J J J 

and the desired response of the element d.. If q.=d., then 

J 11 

the Adaline has performed properly and no action is taken 

(actually in some applications the element may be rewarded 

for correct response). If q.T^d., there exists an error e 

1 1 

T 

which is equal to d.-y. or d.-X. W. . In response to this 

11 111 

error e the adaptation machinery causes the weights W. to 

J 

be changed. If this process is now repeated with the same 
input the Adaline will eventually arrive at the proper set 
of weights such that the desired output is obtained for 
the input X . . 



B. LEARNING VJITH A TEACHER 



In many of the fields for which adaptive logic elements 

have been used, for example pattern recognition, the desired 

output d. for each input vector X. is well known. In these 
J J 

fields, it is usually assumed that the set of patterns of 
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ADALINE 




Figure 6 . 



Interest Is small compared to the total number of possible 
patterns, and that the set of patterns corresponds to a 
linearly separable function such that there Is a set of 
weights which will provide the desired output for all Input 
patterns of Interest [9]. In cases where these assumptions 
are met, Adallnes can provide high accuracy pattern recogni- 
tion at very low cost for computer storage or processing 
time. 

When an Adallne Is used as described above, the adapta- 
tion machinery operates on the same Input Iteratively until 
the desired output Is obtained, and after the element Is 
trained for a large number of Input patterns, the adaptation 
machinery Is removed and the element will now be able to 
recognize most of the class of patterns for which It has 
been trained. This method of training Is known as learning 
with a teacher. Adallnes which learn with a teacher exhibit 
well-defined, exponential learning curves and will always be 
stable under known conditions [10]. 

The weight Iteration rule 



= W. + e.X. 

j+1 j n+1 j j 



developed by Wldrow and Hoff [16] ensures that | e . | will be 

J 

reduced by the adaptation, so long as 



2 < a < 0. 

C. LEARNING WITH A CRITIC 



Adallnes trained by learning v/lth a teacher have proven 
to he a valuable tool In many fields. However, they cannot 



be used when the desired output for each input pattern is 
unknown. To overcome this difficulty, and to expand the 
field of applications for Adallnes, Wldrow, Gupta and Maltra 
have proposed a new technique for training an Adaline, called 
learning with a critic [11]. 

In this method, also called selective-bootstrap learning, 

the output q, of the Adaline is used to form the desired re- 
J 

sponse signal d. (see Figure 7). The bootstrap control slg- 

J 

nal b. determines whether d.=q. or d.=-q.. The control 
J J J J J 

signal b. is determined by an external evaluator, or critic. 

J 

If the critic feels that the present decision (output q.) is 

J 

a member of a set of relatively successful decisions, then 

b, is set such that d.=q.. In other words, the logic ele- 
J J J 

ment is being told that the decision just made is a correct 
one. If, on the other hand, the critic feels that the de- 
cision was not a good one, then b. is set such that d.=-q.. 

J J J 

In the first case, called positive bootstrap adaptation 

or learning by reward, the Adaline will tend to maintain the 

responses that already exist. In the second case, called 

negative bootstrap adaptation or learning by punishment, the 

Adaline will tend to change its existing output. 

Continued Iterative application of b. as determined by 

J 

the critic results in the training of the Adaline. Note 
that while learning with a teacher is well-defined and spe- 
cific, learning v;ith a critic is qualitative in nature. 
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SELECTIVE BOOTSTRAP ADAPTATION 




/ 
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Figure 7 ‘ 



III. THE PROBLEM OF CHESS 



The attempt to program a computer to play grandmaster 
level chess is a problem which has fascinated the experts 
almost from the inception of the computer itself. Its solu- 
tion has to date eluded the best efforts of the artificial 
intelligence community and the utilization of the most po- 
werful computing machinery available. 

A. DESCRIPTION OP THE PROBLEM 
1 . Why Chess ? 

Chess is merely a game. It is, to be sure, a very 
difficult game, and one which requires a great deal of skill 
in order to play v:ell. But the qualities of chess which make 
it such an interesting problem for computer programming are 
threefold: Firstly, it is well-defined in that an exact 

model of the game can be programmed into the computer. 
Secondly, it is a very large problem; so large that no ex- 
haustive search of all its possibilities could ever be car- 
ried out. Lastly, it is a member of a class of large problems 
which human beings can solve very well even though their re- 
sources seem to be even more limited than those of the com- 
puter. It is especially this third quality which makes 
chess such an interesting problem. It is generally felt that 
the ability to program a computer to play championship level 
chess will open new doors in all areas of artificial 
intelligence [12]. Indeed, it has been said that "If one 



27 



could devise a successful chess machine, one would seem to 
have penetrated to the core of human intellectual endeavor 

[13] .” 

2 . Orders of Magnitude 

Looking at a chessboard, it is difficult to imagine 
just how complex the game really is. There are only sixty- 
four squares on the board, and thirty-two pieces. Yet there 
are 10“*^ board positions possible and more than 10^^® possi- 
ble games. To put these numbers in perspective, consider 
that there are 10®® molecules comprising the entire earth 

[14] . Or consider a computer which could analyze one million 
board positions in one second; then it would take this com- 
puter 3-17 X 10^® years to analyze all board positions. 

After one million years of constant computation, the com.puter 
would have completed less than one thousand - billion - 
billionths of one percent of the total problem. 

The magnitude of these numbers is really beyond the 
comprehension of men. Yet contrasted with these astronomi- 
cal numbers are some sm.all numbers associated with the human 
brain which are especially Interesting. The brain, while 
having an enormous storage capacity, is Inherently limited 
in many respects. First of all, it is very slow, operating 
in the range of hundredths of seconds [15]. Secondly, it 
has a very small short-term memory. In fact, it has been 
shown [16] that short-term memory can only store about seven 
"chunks." of information. ("Chunk," as distinct from "bit," 
has been chosen by G. A. Miller [16] to describe units of 
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information in the brain. A chunk is variable in size and 
can range from a single number to, in the case of a chess 
expert, a complete chessboard position.) 

The question that arises from comparison of numbers 
such as 10**^ with numbers such as 7 is this: How can a 

seemingly limited organism cope with such a vast problem? 

The answer to this question would probably solve the problem 
of computer chess - as well as many other problems - once 
and for all. 

The key factor in the human’s ability to play chess 
well is selection. As has been shovm, a chess position pre- 
sents the player with a choice of about thirty possible 
moves on the average. If he considers the opponent’s pos- 
sible responses to each move, there are now about 900 pos- 
sibilities to be explored. Since it is known that a 
grandmaster often looks ^ or 6 moves ahead [17], if he con- 
sidered every possibility he would consider on the order of 
5 X 10 moves! Yet it is known that the same grandmaster 
who looks 6 moves ahead only considers 50 - 100 possibilities 
at most [18]. Through some process not yet known, the 
skilled human player is able to drastically reduce the 
search space on which he operates to a level v/hich he can 
handle . 

If all the computer had to do was search these 100 
nodes, and if the evaluation function used were reasonably 
time-efficient, then the competition between man and machine 
would be no contest. But the real problem for the computer 
is determining which hundred nodes to search. 
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The computer can partly make up for Its lack of se- 
lectivity *by brute force; that is, it can search many thou- 
sands of nodes while the human is considering his hundred. 

But this advantage is not enough to offset the human’s ad- 
vantage of selectivity. 

Chess programming has therefore emphasized two major 
objectives: Increasing speed and power still more and in- 

creasing the computer’s selectivity. 

B. HISTORY OP COMPUTER CHESS 

The first important publication on chess machinery was 
Shannon’s paper in 1950 [19]. In his paper he described 
the basic approach to creating a chess program five years 
before the availability of computers capable of average play. 
In 1957 Newell, Sha;^ and Simon [20] predicted, conservatively, 
that a computer would be world champion within 10 years . 

The complexity of the game was greatly underestimated. 

In 1967 Greenblatt [21] produced what is generally con- 
sidered to be the most successful chess program. It plays 
at about the high amateur level. 

Other notable chess programs which have been written 
Include Northv/estern Unlveristy's Chess 3-0, 3*5 and ^.0 
Kozdrowickl and Cooper’s COKO II and III, Glllogly’s Tech 
and Simon and Chase's MATER Program [22]. 

C. PROGRAMMING METHODS 

Most chess programs, including Greenblatt ' s , Chess ^.0 
and Samuel's highly successful checker player, use the well- 
known alpha-beta tree search procedure as their basis. They 
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also incorporate a plausibility generator as a forward 
pruning technique; that is, the first successor nodes to 
the problem situation node are' ordered according to an 
evaluation function such that the most plausible or promis- 
ing branches from the problem node are searched first. 

A notable exception to the set of programs using alpha- 
beta is Tech [2 3'] which, after an Initial move ordering at 
the problem node, produces the search tree in a straight- 
forward fashion by brute force as deep as time will allow. 

It is interesting to note that while the rating of Tech is 
only about 1300 - that of a weak amateur - in the second 
U. S. Computer Chess Championship Tech placed second, ahead 
of other programs which use sophisticated evaluation functions. 

Kozdro'wicki and Cooper’s COKO III [24] uses a seleccive 
tree searching procedure whereby the entire tree is stored 
in memory and the machine makes a probabilistic estimate of 
the most effective node on the tree for further search. 

Simon and Chase’s MATER Program is an attempt to cause 
the computer to act exactly as a human chess player. Prom 
studies of protocols and human decision-making, they have 
constructed a program which contains all the verifiable 
elements of the human decision-making process. In imitating 
what is known of the structure of the brain, these researchers 
hope to be able to duplicate its function [25]. Although this 
approach has been likened to trying to debug a program with- 
out a computer [26], this study should bring greater know- 
ledge concerning not only chess but the nature of all human 
problem-solving . 
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Bo'cvlnnlk [27] believes that It Is important to know 
which pieces are able to reach a certain square or sector 
of the board in a certain number of half-moves (plies). 
This establishes for each piece what Botvlnnlk calls a 
"horizon." Planning would include only those pieces whose 
horizon is sufficient to aid in attaining the goal. Some 
of Botvlnnlk 's ideas have been programmed, but as yet no 
complete program incorporating all of his ideas has been 
announced . 
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IV. PLAYER AND PRO 



PLAYER and PRO are two programs written for the purpose 
of attacking the chess problem. PRO is in essence the adap- 
tation machinery of an adaptive logic element which is used 
in the training of PLAYER using published positions with 
known best moves. Actual games are played by PLAYER alone; 
no learning takes place during a game. 

A. APPROACH TO THE PROBLEM 

As has been shown, present day computer chess programs 
utilize the speed and povier of modern computers to search 
thousands of nodes in order to arrive at a decision. This 
is not to say that their programmers did not use very sophis 
ticated techniques in their designs in order to limit the 
search;^ however, the search carried out is still orders of 
magnitude greater than that carried out by a man. The ex- 
ception is the MATER Program of Simon and Chase, which as 
described attempts to imitate human techniques. 

The approach of PLAYER is different from either of these 
PLAYER does not try to imitate a human, nor does it use 
brute force to search through a great many nodes. PLAYER 
was designed to study the chess problem and, insofar as 
possible, to provide an ordering of possible moves based on 
the Initial node and its first successors only. A primary 
goal was to gather as much information as possible from the 
initial state. 
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PLAYER attempts to take advantage of two facts: The 

first is that a computer has perfect memory; that is, as- 
suming it is functioning properly, it will not "miss" an 
opening or "not see" a threatening piece. The computer can 
easily keep track of a large number of pieces, positions 
and parameters as long as they are expressed in terms it 
can deal with. The second fact is a simple logical truth: 

All chess positions, assuming perfect play, terminate in 
either a win, a loss or a draw [28]. Therefore any chess 
position is implicitly either a winning position, a losing 
position or a draw position. If it could be assumed that a 
game is being played by two perfect chess players, a winning 
position could only result in a win, a losing position only 
a loss, and a draw position only a dravj. For example, since 
White always has the advantage of the opening move [29], 

White should always win and Black should always lose. That 
this does not happen, even at the grandmaster level, is a 
testament to the fact that there are no perfect players. 

The rub is, of course, that just as there are no perfect 
players, there is no one who can say for sure, for more than 
a very few given board situations, whether that situation is 
a winning, losing or draw position. It can be postulated 
that there is a set of parameters which can describe any 
board position in these terms; so far no one has found it. 

The approach of PLAYER is to study the problem of param- 
eter generation and evaluation by surveying the current board 
situation in terms of winning, losing or drav/lng, and to find 
a move which will result in another situation no worse than 



the present situation. In order to do this PLAYER must 
evaluate all possible moves, but only to a depth of h ply. 
PLAYER therefore tries to gather as much information pos- 
sible from a study of the original problem node and its 
first successors. 

B. PLAYER 

PLAYER is a computer program written entirely in FORTRAN. 
PLAYER consists of a short MAIN program and five subroutines 
which will be described below. 

1 . Data Structure 

The chessboard is represented as an eight-by-eight 
array as shown in Figure 8. In all double-subscripted ar- 
rays, I represents the rank and J the file of the location 
specified. The following arrays form the basic data struc- 
ture of PLAYER: 

OCCSQ(8,8) contains, in the location where a piece rests, 

the value of that piece. Vfhlte pieces are coded as 
plus and Black pieces as minus . 

MPC(l6) and 0PC(16) contain the locations, in the form 

lOxI+J, of the machine and opponent pieces respec- 
tively. Each piece has a specific number assigned 
to it; the pawns 1-8, the knights 9 and 10, the 
bishops 11 and 12, the rooks 13 and 1^, the queen 
15 and the king l6 . 

MVALPC(l6) and 0VALPC(16) contain the values of each piece 
according to the standard P=10, N=30, B=32, R=50, 

Q=90 and K=9900. If a pawn is promoted, its value 
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Figure 8 . 
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is changed accordingly, usually to that of a queen. 
PLAYER can accept any number of pawn promotions to 
any piece value although for its own pawn promotions 
it always chooses to promote to a queen. (Lack of 
this facility cost COKO III a game [30]0 If a piece 
is captured its value (and corresponding location in 
OCCSQ and MFC or OPC) is set to zero. 

MPOSMV(N) and OPOSMV(N) contain the possible moves of the 
machine and opponent respectively. Moves are en- 
coded as 100 times the piece number plus the square 
to which it can move. For example, a possible move 
of 242 means that piece number 2 can move to square 
42 (or 4,2). Castle moves are specially coded as 
98 for castle left or 99 for castle right. 

MPHMV(N) and OPHMV(N) contain phantom moves for machine and 
opponent respectively. A phantom move is not a 
legal move, but represents a conceivable move under 
certain circumstances. For instance, assume that 
the computer’s piece number 9 has a possible move 
to square 57 » which is unoccupied. Now if square 
57 subsequently becomes occupied by another machine 
piece, then the computer no longer has MPOSMV(N)=957> 
because it cannot capture its own piece. However 
there will now be generated MPHMV(M)=957 j indicating 
that if the piece on square 57 Is captured, then 
piece number 9 can recapture. Phantom moves are 
also used to indicate double attacks, as when a 
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rook rests behind another rook. The rear rook has 
phantom moves "through" the front rook to Indicate 
that both can attack the same square. The same 
holds true for rooks and a queen, bishops and a 
queen, and pawns and a bishop or queen. Any number 
of pieces in line can be handled. All PHMV’s (and 
POSMV's) are deleted if they place the friendly king 
in check (that is, if the piece is pinned). 

MATTSQ(8,8) and OATTSQ(8,8) contain, for each square, the 
sum of value and sum of the number of pieces at- 
tacking that square, for machine and opponent re- 
spectively. Thus if a queen and pawn are both 
attacking the same square - say square 22 - then 
MATTSQ(2,2) would contain 10002 (100 x (90+10)+2). 

As in the case of MPHMV and OPHMV, MATTSQ and 
OATTSQ are filled to reflect the fact that a Bishop 
and a Queen, for example, on the same diagonal can 
both attack the same square. It is because of this 
feature that PLAYER can predict the results of ex- 
changes without a tree search. However, in order to 
make its prediction, PLAYER assumes that each side 
will capture with its least valuable piece, given a 
choice. This assumption may not be valid if, for 
example, the opponent sacrifices a high-value piece 
for positional advantage. 

MPAR(L) and OPAR(L) contain the values of the evaluation 
parameters for machine and opponent respectively. 
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At present there are 12 parameters developed for the 
opponent and 18 for the machine. These parameters 
will be discussed in greater detail below. 

NWT(L) contains the set of weights used by PLAYER in conjunc- 
tion with MPAR and OPAR to make a decision. NWT is 
the array that is modified by PRO in the training 
phase of PLAYER. 

MCAS,OCAS,MCA,OCA,MENP,OENP are six important flags which are 
used throughout the program to Indicate the status 
of castling and en passant capture possibilities. 

2. MAIN 

MAIN is a fairly short program which reads MPC, OPC, 
the six flags and the opponents move, calls SITU with this 
information and based on the output from SITU, calls SITU 
again for each possible move of the machine. MAIN saves 
the best move returned from SITU as determined by MPAR and 
OPAR. It then prints the move chosen as well as the new 
values for MPC, OPC and the six flags. 

3. SITU 

SITU is the controlling subroutine for the other 
four subroutines in the program. It calls the other sub- 
routines in a prescribed order, but can be accessed as 
though it were the machine's or the opponent's turn to move. 

SITU first calls EXEC to execute the move just made. 
The move made may be an actual move from the opponent or a 
possible move by the computer. Now SITU calls MOVES, CHECK 
and PARGEN to determine the set of parameters for the player 
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whose turn it is to move. The sets of parameters MPAR and 
OPAR are returned to MAIN. 

4. EXEC 

EXEC is the subroutine which executes a move. The 
move executed may be an actual move, phantom move or possi- 
ble move, depending on MAIN's call to SITU. In addition to 
normal moves, EXEC also handles castling, en passant capture 
and pawn promotion. It also changes the status of the six 
flags if a castling move is made or if a pawn moves so as 
to be in a position to be captured en passant. (Castle flag 
changes are also made if either rook moves from its original 
position, if the king moves or if any of the squares over 
which the king would pass while castling are such that the 
king would be in check, or, of course, if the king is in 
check.) If a pawn is promoted, EXEC changes the value in 
MVALPC or OVALPC and OCCSQ of the piece concerned to that 
of a queen. If a piece is captured by the move executed, 
EXEC changes the pertinent values of MPC and MVALPC (or OPC 
and OVALPC) and OCCSQ to zero. 

5. MOVES 

MOVES is the subroutine which develops all possible 
moves for each player based on a given situation. It is 
also used, though not concurrently, to determine whether a 
player is in check. 

If MOVES is called with NCHK=0, it will return the 
set of all possible moves, all phantom moves, and attacking 
squares for one player. The set of moves returned includes 
special moves such as en passant capture and castling. 
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If MOVES Is called with NCHK=1, It will return the 
value NCHK=0 if the player Is not in check and the value 
NCHK=1 if the player is in check. NCHK is the only mean- 
ingful parameter returned when MOVES is called with NCHK=1. 

6. CHECK 

One of the basic concepts of chess is that of a 
pinned piece. A piece is pinned if its movement will result 
in its own king being in check; any such move is Illegal. 
Since MOVES will not detect a pinned piece, subroutine CHECK 
was written to accomplish this detection. 

CHECK receives as input the possible moves generated 
by MOVES, saves all necessary arrays and flags, calls EXEC 
to execute each possible move and then calls MOVES with 
NCHK=1 to determine if the possible move is legal. Illegal 
moves are eliminated from the list of possible moves. The 
process is repeated for each phantom move, and in all cases 
MATTSQ (or OATTSQ) is reduced accordingly (except in the 
case where the MATTSQ element is the location of the op- 
posing king, since a pinned piece can still check). 

The combination of MOVES and CHECK ensures that only 
legal moves and legitimate attacking squares are presented 
to PARGEN for evaluation. 

7. PARGEN 

PARGEN receives as input from EXEC, MOVES and CHECK 



the arrays OCCSQ, MPC , OPC, MPOSMV, MPHMV and MATTSQ (or 
OPOSMV, OPHMV and OATTSQ) and uses them to generate a set 
of parameters v;hich can be used to evaluate the current board 



position. Note that the current board situation presented 
to PARGEN can be either the original position or that arising 
from the execution of one of the machine's possible moves. 

Parameters 1 through 11 are generated for both 
players; parameters 12 through 17 are generated for the ma- 
chine only; parameter 20 is the weighted sum of all the other 
parameters . 

The following is a description of the parameters 
generated by PARGEN: 

PAR(l) Mobility: PAR(l) is the number of all possible legal 

moves from the current board position. If PAR(1)=0, then 
the position is checkmate. 

PAR(2) Material Value: PAR(2) is the sum of the values of 

all the pieces still on the board, exclusive of the king (the 
king cannot be lost). 

PAR(3) Pawn advancement: PAR(3) is the sum of the squares 

of the ranks of each pawn. This parameter rewards pawn ad- 
vancement in the hope of eventual pawn promotion. 

PAR(^) Center Control: PAR(4) gives credit for each pawn 

in the center four squares. It also gives credit for at- 
tacking opposing center pawns or defending own center pawns. 
The importance of center control in chess has been known 
for centuries . 

PAR(5) Pressure: PAR(5) gives points for reducing the 

number of opponent moves to one. It also gives points if 
the opponent can make only king moves . 

PAR(6) King Protection: PAR(6) gives points for own pieces 

directly in front of own king. This parameter was designed 
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to reward good castle-pawn structure. 

PAR(7) Castle: PAR(7) gives 100 points if any possible move 

is a castle move. It gives 200 points if the player has 
castled . 

PAR(8) Early Development: PAR(8) gives points for moving 

own pieces (bishop, knight or queen) off the back rank. 

PAR(9) Attack I: PAR(9) gives points for a queen or rook 

attacking the opponent's back rank. It also gives points 
for a queen or bishop attacking the opponent king's castle 
pawn structure. 

PAR(IO) Attack II: PAR(IO) gives points for attacking any 

opponent pieces. 

PAR(ll) Pawn Development: PAR(ll) deducts points if a pawn 

is blocked by an opposing pawn. This parameter is designed 
to operate in conjunction with PAR(3). 

PAR(12) Exchange: PAR(12) determines the result of all 

possible exchanges. It deducts points severely if the ex- 
change will be lost; it gives points if the exchange would 
be won (but note that the opponent x^rill probably make an- 
other move rather than participate in a losing exchange). 
PAR(13) Pawn Pressure: PAR(13) deducts points if an op- 

posing pawn can threaten a piece in one move without being 
captured. This is an attempt to eliminate fruitless moves. 
PAR(l^) Danger I: PAR(l^) deducts points if the opponent 

can move a queen or rook to an open file without being cap- 
tured. It deducts further points if opponent will have more 
pieces attacking the back rank than the machine has defenders. 



PAR(15) Danger II: PAR(15) deducts points if the opponent 

can move a queen or bishop to an open diagonal or if he can 
move a queen or rook to a position such that, without being 
captured, he can attack the machine’s castle-pawn structure. 
It deducts further points if the attackers of the machine's 
pawn structure outnumber the defenders. 

PAR(l6) Attack III: PAR(l6) gives points for the machine 

being in position to move to an open file in the same manner 
as PAR(li}) . 

PAR(17) Attack IV: PAR(17) gives points for the machine 

being in position to move to an open diagonal or to attack 
the opponent's castle-pawn structure in the same manner as 
. PAR(15) . 

After determining these parameters, PARGEN multi- 
plies the resultant parameter vector by the input weight 
vector NWT, and transfers the result via SITU to MAIN. 



C. PRO 

PRO is a short program which carries out the adaptation 
algorithm of Wldrow and Hoff [31]: 

PRO reads the value of the weights and parameters as 
provided by PLAYER, performs the adaptation algorithm, and 
prints the results. 

The critic function described in the section on adaptive 



logic is performed by the programmer. The programmer deter- 
mines the worth of a PLAYER decision by consulting standard 
texts, asking PLAYER to decide a move from a published position. 



and comparing PLAYER'S move to that of the expert involved 
in the published position. Any arbitrary position can be 
presented to PLAYER for training or for testing. 

D. SUMMARY 

As has been shown, the basic working method of most 
other chess programs is as follows: First successor nodes 

to the problem situation are generated and ordered in a 
plausibility hierarchy according to a heuristic value func- 
tion. the N "best" nodes are expanded and searched as 
deeply as possible within real-time constraints, the search 
being guided by chess heuristics. The end nodes of the 
tree generated are evaluated, using the same or another set 
of heuristics, and the evaluation is "backed-up" to the 
problem node in order to decide which move to make. The 
purpose of searching through so many nodes is to attempt to 
make up for the fact that the original plausibility ordering 
is imperfect. 

PLAYER and PRO are based on the postulate that there is 
a perfect value function in chess, that this value function 
depends on specific knowledge of every aspect of the given 
problem situation, and that this value function can be de- 
termined with the aid of adaptive logic. 

The method of PLAYER and PRO is to generate the first 
successor nodes to the problem situation only, to evaluate 
these nodes as completely and specifically as possible, and 
to train the value function generator - the decision-maker - 
to make the best decision using adaptive logic techniques. 
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V. CONCLUSIONS 



A. EVALUATION METHOD 

The method chosen to evaluate the capabilities of PLAYER 
in ordering moves is one in which quantitative results are 
produced. It is felt that these results are more meaning- 
ful than a subjective appraisal based on actual play. 

In order to test PLAYER, chess positions were chosen 
from three chess texts. Most of the positions were taken 
from those appearing in actual games between grandmasters; 
others were positions used for Instructional purposes. In 
each case it vias assumed that the move made by the expert 
is in fact the best move. PLAYER assessed each position 
and printed all moves possible from that position, ordered 
according to its evaluation function. The rank assigned 
the recommended move by PLAYER was used as an indication of 
the worth of PLAYER’S evaluation function for that position. 
In other vjords, if PLAYER were perfect, then it would always 
rank the recommended move as number one - it would always 
make the recommended move. The closer PLAYER is to perfec- 
tion, the higher it will rank all recommended moves. 

All positions evaluated are Illustrated in the diagrams 
in Appendix A. In these diagrams, abbreviations for the 
chess pieces are used as follows: K=King, Q=Queen, R=Rook, 

B=Blshop, N=Knlght and P=Pawn. Pawns are named according 
to their file (see Figure 9); that is, the pawn in the 
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Figure 9 



Queen's Rook (QR) file is called the Queen's Rook's Pawn, 
abbreviated QRP. A minus sign is used to indicate Black 
pieces; a plus sign is used for White. The moves are listed 
in standard chess notation, for example Q-QB3 means the 
Queen is moved to square QB3 (see Figure 9)* Where no con- 
fusion can arise, the first letter of the piece designation 
or square designation may be omitted, as in Q-B3 vice Q-QB3 
or P-K4 vice KBP-K4. An 'x' indicates capture, for example 
Queen takes Knight would be abbreviated QxN. 

Where moves are listed in a line of text, as in Figure 
20, for example, they are always listed in the order VJhlte 
move. Black move. Moves followed by an exclamation point 
(I) are judged - by the expert - to be very good moves; 
moves followed by two exclamation points (.'.') are judged 
unusually good moves. The computer is playing White in all 
moves except moves number 21 to 23* Recommended moves are 
all underlined in the diagrams of Appendix A. 

It should be emphasized that this test is a very de- 
manding one. The forty situations include samples from the 
opening, middle and end games. There are piece sacrifices, 
developmental moves and positional moves included. Almost 
half the recommended moves in these selected situations were 
judged very good or unusually good by the standards of chess 
experts . 

B. RESULTS 

The results of the test of PLAYER are shown in Table I. 
The columns of this table show the number of the position 
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considered, comments concerning the recommended move, the 
total number of moves evaluated by PLAYER for each position 
and PLAYER'S ranking of the recommended move for each 
position. 

The average number of moves per position generated by 
PLAYER for evaluation was 39- Of the ^0 positions considered, 
PLAYER ranked the recommended move In the top ten moves 31 
times . The recommended move was ranked In the top five 
moves 2k times, and l4 times PLAYER chose the recommended 
move exactly. 

Piece sacrifice moves - designated by (S) In Table I - 
were all ranked very low; this Is to be expected as PLAYER 
was programmed to avoid sacrifice If at all possible. 

With two exceptions, all the moves ranked lower than 
ten were either sacrifice moves of 'very good' moves - or 
both. These are precisely the kinds of moves which require 
the most profound understanding of the subtleties of chess; 
that Is, these are the moves which separate the master from 
the amateur. 

PLAYER ranked one 'unusually good' move In the top five, 
ranked 9 ’very good' moves In the top ten (7 of these In the 
top five) and found 4 'very good' moves exactly. 

Judged In the context of other existing chess programs, 
PLAYER'S performance Is Impressive. The results are suffi- 
ciently encouraging to warrant further Investigation Into 
what la demonstrably a viable technique. 

Improvement In PLAYER'S performance can be obtained by 
the generation and refinement of more parameters and by more 
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training in conjunction with PRO. In particular, a means 
should be found to determine when a piece sacrifice will 
result in a winning position or combination. In order to 
make a decision of this kind, the computer would have to 
be programmed to develop and examine a small set of plans . 
That is, the computer would select a few key pieces, and 
for each selected piece examine a few sacrifice moves to 
determine whether the projected sacrifice would result in 
positional gain. (The set of all possible sacrifices could 
not be examined because of time constraints.) If a means 
could be found to have the computer select the 'best set' 
of pieces and moves for possible sacrifice, the resulting 
program would for the first time approach the level of 
sophistication of the human mind. 
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APPENDIX A: EVALUATION POSITIONS 
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Recommended Move [32] 
1. R-K8:.’ 



Figure 10 . 
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Positions 2-6 
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Recommended Moves [33] 
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Q-Q3 
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Figure 11 . 
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Positions 7-10 
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Recommended Moves [34] 
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10 . 


NxP . 





Figure 12. 
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Positions 11 - 12 
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Recommended Moves [35]: 
11. QxP RxQP, 

then 12. RxR. 



Figure 13 . 
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Recommended Move [36] 

13 . R-Kk. 



Figure 1^. 
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Positions 1^1 - 16 



-R 




-B 






-R 


-K 












-Q 




-P 


-P 










-P 








-P 


-P 




-P 
















+P 
















+Q 


+P 




+B 




+P 










+P 


+P 


+P 


+R 










+R 


+K 





Recommended Moves [37] 
m. KR-Bl I B-R3, 

then 15. R-B? I Q-Kl, 

then 16. Q-R3*. 



Figure 15 . 



Positions 17 - 18 



-R 








-R 










-B 








+Q 


-P 


-K 


-P 


-Q 






-P 


-B 








-P 


-N 




+N 




























+N 




+P 








+P 


+P 








+P 


+P 


+P 






+R 


+R 






+K 





Recommended Moves [38] 
17. N-Q7 I NxN, 
then 18. RxN. 



Figure 16 . 
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Positions 19 - 20 



-R 


-N 


-B 


-Q 


-K 


-B 


-N 


-R 


-P 


-P 


-P 


-P 


-P 


-P 


-P 


-P 


































































+P 


+P 


+P 


+P 


+P 


+P 


+P 


+P 


+R 


+N 


+B 


+Q 


+K 


+B 


+N 


+R 



Recommended Moves [39] 
19 . P-K4 P-K4, 
then 20. N-KB3. 



Figure 17 . 



Position 21 



-R 


-N 


-B 


-Q 


-K 


-B 


-N 


-R 


-P 


-P 


-P 


-P 


-P 


-P 


-P 


-P 










































+P 
























+P 


+P 


+P 


+P 




+P 


+P 


+P 


+R 


+N 


+B 


+Q 


+K 


+B 


+N 


+R 



Recommended Move [40] 
21. ... P-K^l. 



Figure l8. 
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Positions 22 - 23 



~R 


-N 


-B 


-Q 


-K 


-B 


-N 


-R 


~P 


-P 


-P 


-P 


-P 


-P 


-P 


-P 








































+P 


























+P 


+ P • 


+P 




+P 


+P 


+P 


+P 


+R 


+N 


+B 


+Q 


+K 


+B 


+N 


+R 



Recommended Moves [41] 

22 P-Q^ , 

then 23. P-QB^J P-K3. 



Figure 19 . 



Positions 24 - 26 









-R 












-p 






-B 


-P 




-K 




+p 




-Q 






-P 


-P 




+R 


-P 


+P 


-P 






-N 










+P 
















+Q 


+N 




+N 






+B 






+P 


+P 
















+K 





Recommended Moves [42] 
24. Q-B3I P-B3, 

then 25 . N-Q2 ! N-B5, 

then 26. K-Bl 



Figure 20. 



Positions 27 - 29 











-N 


-R 




-K 




-p 




-B 


-R 






-P 


-p 




-p 




-P 


+N 


-P 


+N 






+p 


-P 


+P 




+P 




+p 


+p 




+ P 
























+R 
















+P 












+R 


+K 





Recommended Moves [43] 
27. R/R3-KB3I NxN, 

then 28. RxNI RxR, 

then 29. KPxR! 



Figure 21. 



Position 30 



-R 




-R 












-P 


-P 




-Q 


-N 


-K 




-P 










+N 


-P 












-P 






















+Q 




















+ P 


+P 








+P 


+p 


+P 






+R 




+R 




+K 





Recommended Move [44] 
30. N-N^chl 



Figure 22. 
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Position 31 





-K 










-R 


-R 


-p 


-B 












-N 




-Q 


-P 


-P 






+Q 


+P 




-P 


-B 




-p 
















+p 










+P 


+N 


+P 






+N 






+P 


+P 


+B 














+K 






+R 




+R 



Recommended Move [45] 

31. Q-N 7 ! I 



Figure 23. 
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Positions 32 - 34 









-R 






-K 












+R 


-P 




-P 






-Q 






-N 


-P 


+B 








-P 




-P 












+P 














+P 








+Q 


+P 












+P 


+p 
















+K 





Recommended Moves [ 46 ] 
32. Q-K 5 I R-Rl, 

then 33. R-B 7 I Q-K 3 , 

then 34. QxQ 



Figure 24 . 



Positions 35 - 37 





-K 


-R 




-B 






-R 


-p 


-P 


-P 


+Q 


+R 
































+N 


-P 


-N 


-Q 


+p 




+P 








-P 


-P 






+P 






















+P 


+P 


+P 








+R 




+N 


+K 





Recommended Moves [47] 





35. 


N-QB6 PxN, 


then 


36. 


R-QNl K-Rl 


then 


37. 


Q-Bl mate. 



Figure 25. 
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Positions 38 - 40 





-R 










-K 




-Q 










-P 


-P 




-B 








-P 






-P 








-P 










-P 


-R 




+P 








+Q 








+B 










+P 


+P 


+R 






+P 


+P 


+P 






+R 








+K 





Recommended Moves [ 48 ] 
38. R-B8 RxR, 

then 39. R-B8 Qxr, 

then 40 . Q-Q8 mate. 



Figure 26 . 



PLAYER 



IMPLICIT INT£GER(0) 

DIMENSION MPC ( 16 ) ,OPC( 16) ,MVALPC ( 16) , QV ALPC ( 16 ) , 

. OCCSw( 8,8),MPOSMV( 75) ,OPOSMV(75) ,MPAR(20) ,0PAR(20) , 
. JOCCSQ(8,8) ,06(65) fMTHR(20) 

DATA MV ALPC/8=^ 10, 2^30, 2=i=32, 2*5 0,90, 9900/ , 

. 0VALPC/8*10, 2*30, 2*3 2 , 2* 5 0 , 90 , 9900/ 

DC 15 1=1,8 
DO 15 J=l,8 
OCCSQ( I , J)=0 
15 CONTINUE 

REA0(5,150) (MPCn ) ,1 = 1 ,16) 

150 FORMAT! 1614) 

REA0(5,15O) (OPC( I ) ,1=1,16) 

READ! 5, 200) ME.'MP , OENP, MCAS , OCAS ,MC A ,0CA 
200 FCRMAT(bI4) 

READ(5,2iO) OMV 
210 FORMAT! 18) 

wRIT£!6,215) OMV 
215 FORMAT! 3X, I 8) 

DO 300 K=i,16 

IFIMPC! K).EQ.O) GO TO 250 

I=HPC!K)/10 

J=MPC!K)-10*I 

OCCSQ! I , J) =MVALPC(K) 

GO TO 260 
250 MVALPC!K)=?0 
260 IFICPC! K) * EU.Oi GO TO 280 
I=CPC(K)/10 
J=OPC( K)-10*I 
OCCSQ! 1 , J)=-OVALPC!K) 

GO TO 300 
280 OVALPC! K)=0 
300 CONTINUE 
MTURN=1 

CALL SI TU! MPC ,OPC , OCCSQ , MV ALPC , CVALPC , MPOSMV, MNT , 

. MTURN,MCA , OCA, MPAR,uPAR, OMV, MCAS, GCAS, MENP ,OENP ) 

DO 1000 K^l,20 
MTHR!K) =MfiAR!K)-OPAR!K) 

1000 CONTINUE 

WRITE! 6,2400) 

2400 FORMAT! 12X, 'MCAS * , 5X , 'OCAS' ,5X, ' MENP' ,5X , 'OENP' , 

. 5X, 'MCA' ,5X, 'OCA'//) 

WRITE (6, 1800) MCAS, OCAS, MENP, OENP, MCA, OCA 
1800 F0RMAT!6X,6I9//) 

IF!MNT.EQ.O) GO TO 4410 
127=0 

1827 MGTR=-10000 
MATE=0 

DO 4000 N=l,MNT 
IF! I27.EQ.0) GO TO 2005 
IF!N.NE.MRMV) GO TO 4000 
2005 CONTINUE 

DC 2150 K=l,16 

Ki=K<-16 

K2=K+32 

K3=K+48 

OS! K)=MPC! K) 

OS!Kl) =UPC!K) 

0S!K2) =MVALPC!K) 

0S!K3) =CVALPC!K) 
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2150 CCNTINUE 

DO 2250 I=lt8 
DO 2250 J=?l,8 
JOCCSy( I , JJ=CCCSQ( I,J) 

2250 CONTINUE 
M1=HCAS 
M2=0CAS 
M3=MCA 
M4=0CA 
M5=MENP 
M6=0ENP 

KP=P,P0SMV(N)/100 
MMV=100*MPOSMVI N)+MPC(MP) 

IFIMPOSMV (N) .LT. 100) MMV=MPOSM V ( N ) 

PTURN=-1 

CALL SI TUI OPCtMPC tOCCSQ.OVALPC, PVALPC,OPOSMV,ONT, 
. MTURNtOCA ,MCA,OPAR,MPAR,MMV,OCAS,MCAS, UENP ,MENP J 
DC 2000 K^lt20 
MPARIK) =MPAk(K)-OPAR(K) 

2000 CCNTINUE 

IPI0PAR(2Q) .EQ.O ) MPARI 20) =MPAR( 20) +3000 
IFIOPARI20) .EQ.O) MATE=l 
DC 2200 K^i,20 
OPARIK) =MRAR(Ki-MTHRI K) 

2200 CONTINUE 

MRK=KPOSMV(N)/100 
1F( MRK.NE,i6) GO TO 2348 
IFIMS.EQ.lOO) GO TO 2343 
(MPARI 20 )=MPAR( 20) -50 

2348 WRITE(6,27iO) HPOSMV IN) , I MPARI K ) ,K=1 , 17 ) t MP ARI 20) 
2710 FORMAT! 2X, 15, 2X ,17I5,2X,I6) 

IFIMPARt 20) .GT.MGTR) MPMV=N 
IFIMPAKI20) .GT.MGTR) MGTR=MPAR( 20) 
lFII27.EQiO) GO TO 3129 
IFIMPARI5) .GT.O) w RI T£ I o , 2863 ) 

2863 FORMAT (5X, ^CHECK* ) 

WRITE! b,2353) 1 MPC I K) ,K = 1 , 16 ) 

2853 F0RHATI16I4) 

WRITEIo ,2853 ) I OPC IK) ,K=1 , 16) 

WRITE! 6 ,2859) 

2859 FORMAT! 2X, »MENP> ,2X, 'OfcNP* , 2X, *MCAS' ,2X, *OCAS‘ , 

. 2X, 'MCA* ,2X, *OCA’ ) 

WRl T£ I 6 ,235b) HE NP , OENP , MCA S , OCAS , MCA , OCA 
2856 FORMAT! 616) 

GC TO 4450 
3129 DO 3i50 K=l,16 
K1=K+16 
K2=K+32 
K3=K+48 
MPCIK) =CSI K) 

OFCIK) = OSI K1 ) 

MVALPCI K)^USIK2) 

OVALPCI K)=;0SIK3) 

3150 CONTINUE 

DC 3250 1=1,8 
DO 3250 Jjfl,8 
OCCSQI I , J),=JOCCSQI I,J) 

3250 CCNTINUE 
MCAS=M1 
0CAS=M2 
MCA=M3 
0CA=M4 
MENP=M5 
0ENP=M6 
4000 CONTINUE 

MLS=RP05MVI MPMV) /lOO 
IFIMLS.EG.O) MLS=i 
MLS=MPC (MLS) 

WRITE! 0,4255) MPOSMVIMPMV) ,HLS 
4255 FORMAT I 5X, ‘MY MOVE IS*, 18, 14) 

IF(MATE.NE.O) GO TO 4300 
GO TO 4450 
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4300 WRITE(6,4315) 

4315 FORMAKSX, 'CHECKMATE*) 

GG TO 4450 
4410 WRITE(ot4425) 

4425 FCRMaT( 5X,*I RESIGN' J 
4450 IF(I27.EQ-li GO TO 4510 
127=1 

GG TO 1827 
4510 STOP 
END 

SUBROUT INE S I TU ( M PC , OPC , DCC S C, M VALPC i OV ALPC , MPOSMV » 

. MNT,i*4TURN,MCA,0CA,MPAR,0PAR, JMV,MCAS,OCASf MENPtOENP ) 
IMPLICIT INTEGER (0) 

0 IMENSION HPC ( 16 J ,OPC( 16) ,OCCSQ( 8 ,8) ,MVALPC (16) , 

. OVALPCI 16)tMPAR(20),0PAK(20) ,MPHMV(75) fOPHMV(75) , 

. MATTSylB.B) , OAT TSOI 8, 8) , MPOSMV ( 75 ) , OPOSMV I 75 ) 

00 500 1=1,8 
DO 500 J=l,8 

OCCSQI I , J)=OCCSQ( I , J) ^MTURN 
500 CONTINUE 
NTURN=-1 

CALL e X EC IJM V , ME NP ,0 E NP , OC A S , OC A , OCC SQ , H PC , OP C , 

. CVALPC.N.TURN) 

DO 2129 K=l,16 
I FIMPCI K) . EQ.O) MVALPC(K)=0 
2129 CONTINUE 
0CAS=0 

I FI0CA.GE.50) 0CAS=2 
IF(OCA.EQ.IO) 0CAS=1 
IFIOCA. EQi-10) 0CAS=-1 
MCAS=0 

IF(MCA.GE,50) MCAS=2 
IFIMCA.EU. 10) MCAS=1 
IFIMCA. EQ.-IO) MCAS=-1 
NCHK=1 
0NPHT=0 

IFI MTURN.EQ.-l ) 0NPHT=1 
NTUrN=-'1 

CALL MOVESIMPC, OPC , OCCSQ, OV ALPC , OATTSQ, OPOSMV ,0PHMV , 

. ONPHT ,MENP, OCAS , OCA, NTURN,NCHK,0NT) 

IF(NChK.EQ.i) MCAS=2 
0NPHT=0 

IF(MTURN.EQ.-l) ONPHT=i 
NTURN=-1 

CALL MO VES(M PC, OPC, OCCSQ, OVAL PC , OATTSQ, OPOSMV ,OPHMV , 

. ONPHT, MENP, OCAS, OCA, NTURN, 0,0NT) 

IF(ONT.EQ.O) GO TO 1725 

NTURN=-1 

MNPHT=0 

I F( MTURN.£G.-1 ) MNPHT=1 

CALL CHECK(OPC,MPC,OCCSQ,MVALPC,MATTSQ,MPOSMV,MPHMV, 

. MNPHT , MENP, MCAS , MCA, NTUR(N, MNT , OPOSMV, OPHMV , ONPHT, 

. CVALPC , OATTSQ, ONT ,0£N P , OC AS , OC A ) 

IF(MCAS.EQ.2) GO TO 1725 
ML=0 

IKA=MPC( 16)/ 10 
DC 1705 JKA=2,4 
IFIOATTSQt IKA, JKA) .NE.O) ML=1 
1705 CONTINUE 
MR=0 

DO 1710 JKA=6,7 

IF(OATTSQ( IKA, JKA) .NE.O) MR=1 

1710 CCNTINUE 
IF(ML.EQ.O) GO TO 1711 
MCAS=1 

IFIMCA. EQ.-IO) MCAS=2 
IF(MR.iME.O) MCAS = 2 
GC TO 1725 

1711 MCAS=0 

IFIMCA. EQ.-IO) MCAS=-1 
IF(KR.NE.O) MCAS=-1 
1725 CONTINUE 
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NTURN=-1 
CPAR( U =0 

IF(MfURN.cQ.-l) 0PAR(1)=1 

1800 CALL PARGfcN(UPOSMV,ONT,CATTSQ, OPAR,OVALPC,OCCSQ, 

. CCA,OPCtNPC,NTURN,OPHMV,ONPHT ) 

IF(MTURN.Nc. iJ GO TO 18^5 
DC iOiO 1=1,8 
L = 9-I 

WRITE (6, 1815) (OCCSQIL, J) , J=l,8) 

1815 FORMAT 1 818// ) 

1810 CONTINUE 
1825 DO 1900 1=1,8 
DO 1900 J=l,8 
OCCSO( I , J)=-OCCSG(I , J) 

1900 CCNTiNUE 
NTURN=1 
MNPHT=0 

IF( KTURN.tQ.-l ) MNPHT=1 

CALL MOVES! MPC,OPC ,OCCSC, MV ALPC , MATTSQ, M POS MV , MPHMV , 

. MN?hT,OENP,MCAS , MCA , NTURN , 0 , MN T ) 

IF(MNT,EQ.O) GO TO 2125 

NTURN=l 

ONPHT=0 

IF(MTURN.EQ.-1 J 0NPHT=1 

CALL CHECK! M PC, OPC , OCCSC, OV ALPC , OATTSQ, OPCS MV ,0PHMV , 

. CNPHT , CENP , OCAS , OCA, NTURN, CNT , MPOSMV , MPHMV ,MNPHT , 

. MVALPC ,MATTSQ,MNT ,M£NP,MCAS,MCA) 

IF!OCAS .EQ.2) GO TO 2125 

IKA=OPC!16)/10 

ML=0 

DO 2105 JKA=2,4 
IF(MATTSO! IKA,JKA) .NE.O) ML=1 
2105 CCNTINUE 
MR=0 

DC 2110 JKA=6 , 7 

IF!MATTSQ! IKA,JKA J .NE .0) MR=1 

2110 CONTINUE 
IFIML.EQ.O) GO TO 2111 
CCAS=1 

IFIOCA. EQ.-IO) 0CAS=2 
iFiMK.NE.O) 0CAS=2 
GO TO 2125 

2111 0CAS=0 

IF(OCA. EQ--10) 0CAS=-1 
IF!MR.NE.O) 0CAS=-1 
2125 CONTINUE 
NTURN=1 
MPAR! 1 j=0 

IF!MTURN.£Q.-1) MPAR!1)=1 

2200 CALL PARGENIMPOSMV, MNT,MATTSQ, MPAR, MVALPC, OCCSQ, 

. MCA,MPC,OPC , NTURN, MPHMV, MNPHT) 

3000 RETURN 
END 

SUBROUTINE EXEC ! OMV , MENP, OENP , OCAS , OCA , OCCS G, M PC , OPC , 
. JVALPC ,NTURN) 

IMPLICIT INTEGER !0J 

DIMENSION MPC!16) ,0PC!16j ,0CCSQ!8,8) , JVALPCI16) 

IFIQMV.EQ.O) GO TO 3000 

IFIOMV.LT .100) GO TO 2000 

OPN=OMV/10000 

CPR=CMV-10000-0PN 

NEWPL)S = 0PR/100 

CPRPOS=OPR-100*NEWPOS 

DETERMINE IF MOVE wiLL AFFECT CASTLE POSSIBILITIES 
I FIOCA. GE.50) GO TO 2364 
IFtOCA. EQ. iO) GO TO 2362 
IFIOCA.EQ.-IO) GO TO 2363 
IF(OPN. EU. 1 6) 0CA=50 
IFI0PN.EU.13) CCA=10 
IFI0PN.EU.14) 0CA=-10 
GO TO 2364 

2362 IFI0PN.EQ.14) 0CA=50 
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GC TO 2364 

2363 IFlOPN.EQ.13) 0CA=50 

2364 iF<0PN.GT.8) GO TO 1000 
SET EN PASSANT FLAG IF APPLICABLE 

IF( JVALPU CPN) .EQ.90) GO TO 1000 

NK34=NtWP0S-0PRP0S 

NK^4=JABS( NK34) 

IFINK34.NE.20) GO TO 800 
OENP=NEWPOS+100«OPN 
800 IFINEWP0S-GT.7a) CO TO 900 
DETERMINE PAWN PROMOTION 

IFCNEWPOS.lt. 21) GO TO 900 
GC TO 1000 
900 JVALPC(OPN)=90 
IMPLEMENT MOVE OTHER THAN CASTLE 
1000 I£LD=OPRPOS/10 

JCLD=OPRPOS-10*IOLO 
INEW=NEWPOS/10 
JNEW=NEWPOS-10*IN£W 
OCCSQC IGLD, JOLD)=0 

I FCCCCSQC INEW, JNEWi .EQ.O) GO TO 1400 
1200 DO 1300 K?l,16 

IFCMPCC K) . EQ.NEWPOS) MPC(K)=0 
1300 CCNTINUE 

GO TO 1500 

1400 IF(0PN.GT.8) GO TO 1500 

IF( JVALPCC OPN) .EQ.90) GO TO 1500 
IF( JOLD.EQ.JNEW) GO TO 1500 
OCCSQC lOLO, JNEW) =0 
I 25=M5NP/100 
1450 MPCCI25)=0 

15 00 OCCSQC I KE W, JNEW )= JVALPCC OPN )'7^NTURN 
OfC COPN) = NEWPOS 
GO TO 3000 

IMPLEMENT CASTLE MOVE 
200C CCA=100 
0CAS=2 

2400 IFIUMV. EQ.99) GO TO 2500 
iJ?=OPCC 13) /lO 
JB=OPCC 13i-10«IR 
KR=13 
Kl = l 

GC TO 2600 
2500 I R=OPC< 14) no 

JH=OPCC 141-10«IR 

KR=14 

Kl=-1 

2600 IK=OPCC 16) /lO 

JK=OPC( 16)-i0*IK 
2700 OCCSQC IK, JR)=0 
OCCSQC IR, Jk)=0 
JR=JRtK I 

OCCSQC IR,JR)=9900*NTURN 
JK=JR+K1 

OCCSQC IK, JK)=50*NTURN 
2800 OPCCKR) =10*1 K+ JK 
OPCC 16) =10'-J'1R<-JR 
3000 RETURN 
END 

SUBROUT INE CHECK ( M PC , CPC , OCCSQ, QVALPC , OATTS C, OPOSMV , 
. OPHMV,ONPriT,OENP, OCAS, OCA, NTURN,ONT,MPOSCW ,MPHMV , 

. MNPHT, MVALPC ,MATTSQ, MNT , ME NP , MC AS , MCA ) 

IMPLICIT INTEGER CO) 

DIMENSION MFC C16),0PCC16), OCCSQ C 8 , 8 ) , UV AL PC 1 1 6) , 

. OATTSQC 8 ,3) ,OPOSMVC 75) ,OPHMVC 75) ,MPOSMVC 75) , 

. MPHMV (75) , JMPCC 16) , JOPCC 16) , JOCCSQC8,8) , JMVLPCC 16) , 
. MATTSQC8,8) ,MVALPCC16) 

DC 50 1=1,6 
DO 50 J=l,8 

OCCSQC I , J)=OCCSQ( I , J)»NTURN 
50 CONTINUE 

IFCMNT.EQ.O) GO TO 3100 
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IF0G=0 

IF(ONPHT.NE.O) IFOG=l 
DO 1000 N=1,MNT 
SAVE POSITION 
M1=MCAS 
M2=0CAS 
M3=McNP 
M4=0ENP 
M5=MCA 
M6=0CA 

DC 100 K=l,16 
JFFC(K)=MPC(K) 

JCPC(K)=0PC(KJ 
JMVLPCI K)=MVALPC(K) 

100 CONTINUE 

DC 200 1=1,8 
DO 200 J=l,8 
JOCCSQI 1 , J)=OCCSQ( I,JI 
200 CONTINUE 

MP=MPOSMV(N)/100 

MM V= 1 00 =^‘MPOSMV ( N I MPC ( MP ) 

IF! MPOSHViN) ,LT. lUO) MMV=MPOSMV I N J 
NTURN=-1 

IF( IFOG.EO.O) NTURN=1 
EXECUTE MOVE 

CALL EXEC( MMV, OENP , MEN P , MC AS , M CA , OCCSQ , OPC , MPC , 
. MVALPC ,NTURNJ 
KPN=0 

■DO 2129 K=l, 16 

IFIOPC (KJ . £0. JOPClKi } GO TO 2129 
KfN=X 

OSV=OVALPC(KI 
OVALPCI KJ 
2129 CONTINUE 
NCHK^l 
NTURN=1 
0NPHT=0 

IFUFOG.NE.O) 0NPHT = 1 
IF(NTURN.NE.l) GO TO 2348 
DO 2357 1^1,8 
DO 2357 J=l,8 
OCCSU( I, J1=-0CCSQI I , J) 

2357 CONTINUE 
2343 CONTINUE 

CALL MOVES (OPC, MPC, OCCSQ, OVALPC , OATTSQ, OPOSMV , 

. CPHMV, ONPHT ,MENP,GCAS,OCA, NTURN ,NCHK,ONT ) 
IF(NTURN.NE. 1) GO TO 2361 
DO 2368 1=1,8 
DO 2568 J=l,8 
OCCSQ! I , =-GCCSQ( I,J) 

2368 CONTINUE 
2361 CONTINUE 
MCAS=Ml 
0CAS=M2 
MENF=M3 
0£NP=M4 
MCA=M5 
0CA=M6 

DO 300 K=1 ,16 
OPC! K)=JUPC(K) 

MVALPC! KJ =JMVLPC(K) 

300 CONTINUE 

IFIKPN.NE.O) OVALPC! KPN1=0SV 
DO 350 K=i , 16 
IFIKPN.EO.Ol GO TO 310 
1F(MPC(K) .EQ.OPC!KPN) ) KPN=0 
310 MPC!K) = JMPC! K) 

350 CONTINUE 

DO 400 1=1,8 
DC 400 J=l,8 
OCCSQ! I , J1=J0CCSQ! I ,J) 

400 CONTINUE 
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IF(KPN.EQ.O) GO TO 500 
KfM=OPC (KPN) 

I=KPM/10 

J=KPiM-10<=I 

MATTSQ( I , J)=MATTSQ( I, JJ-lOOl 
DETERMINE IF MOVE RESULTS IN CHECK 
500 IF(NCHK.Nc. 1) GO TO 950 
IF CHECK, CHANGE ATTSQtPOSMV 

IF(MPOSMV( N) .LT. 100) GO TO 990 
MPC=HPOSMV(N)-MP*iOO 
M1=MP0/10 
MJ = MPO-MI=> 10 

M A T T SQ ( M I , M J ) =M A T T SQ ( M I , M J ) - iO 0 M V A L PC ( M P ) - 1 

IF(MVALPC(MP).EQ.32) GO TO 600 

IF(MVALPC( MP) . EQ.50) GO TO 600 

IF(MVALPC(MP) .EQ .90) GO TO 600 

GO TO 990 

600 DC 610 L=1,MNPHT 
M14=MPHMV(L) /lOO 
IFIM14.E0.0) GO TO 610 
IF(M\/ALPC(M14) .EQ.32) GO TO 603 
IF(MVAlPC( M14) .E0.50) GO TO 603 
IF(MVALFC(M14) .EQ.90) GO TO 603 
GO TO 610 

603 NVD=MPHMV( L)-100«M14 

IF( NVO. EQ.MPO) GO TO 604 
GO TO 610 

604 MPM=100^^Mi44-HPC( MP) 

DC 607 K=1,MNPHT 

IF(MPHMV( K) . EQ.MPM) GO TO 606 
GO TO 607 

606 MPHMV(L)=0 
GC TO 990 

607 CCNTINUE 
GC TC 990 

610 CONTINUE 
GC TO 990 

950 I F(PVALPC( MP) .NE.IO) GOTO 1000 
I 1=MPC( MP) /lO 
J1=MPC( MPi-10*Ii 
MPG=MP0SMV(N)-100*MP 
MI=MPO/ 10 
M J=MP0-10*MI 
IF( Jl.EQ.MJ) GO TO 1000 
DO 960 L=1,MNPHT 
M14=MPHMV(L) /lOO 
IFIM14.EQ.0) GO TO 960 
IF(MVALPC(M14) .EQ.32) GO TO 952 
IF(MVALPCIM14) .EQ.90) GO TO 952 
GO TO 960 

952 MPM=100*M14+MPC ( MP ) 

IF(MPI4MV(L) .NE.MPM) GO TO 960 
I4=-l 

1F< II ..GT.Ml ) 14=1 
J4=-l 

IF^Jl.GT.MJ) J4=l 

13=11+14 

J3=J1+J4 

954 IF(J3.LT.l) GO TO 960 
IF(J3.GT.3) GO TO 960 
IF(I3.LT.i) GO TO 960 
IF(I3.GT.8) GO TO 960 
N3=10*I3+J3 

IF(MPC( M14) .EQ.N3) GO TO 965 
IF(CCCSQ( I3,J3) .EQ.-90) GO TO 956 
I F(OCCSGU 3, J3) . EQ.-32) GO TO 956 
IF(CCCSC(I3, J3) .EQ.O) GO TO 95o 
GO TO 960 
956 13=13+14 
J3=J3+J4 
GC TO 954 
960 CONTINUE 
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GC TO 1000 
965 MNPHT = .'1NPHT + 1 

KPHMV (;<i.iPHn=100-'!=M14+MP0 

MA7TSQ(MIiMJ)=MA7TSQ(MI,MJJ + lOO=!‘PVALPC(Ml4l+l 
GG TO lOOO 
990 KP0SMV(N)-0 
lOOO CONTINUE 

DC 3G00 N^lfMNPHT 
SAVE POSITION 

If (MPHMVIN) .EQ.O) GO TO 3000 

f l=KCAS 

M2=0CAS 

M3=MENP 

P4=CENP 

DO 2100 K=l,l6 
JPPC(K; =MPC(K) 

JOPCIKJ =9PC(K) 

JP.VL PC (K) 5HVALPC(K) 

2100 CCNTINJE 

00 2200 i=i,a 
DC 2200 J=l,a 
JOCCSGI I t-J)=GCCSQ( I. J ) 

2200 CONTINUE 
EXECUTE PHANTOM MOVE 
MP=MPHMV(N j/lOO 
NtWPOS=MPHMV (N) -lOO-MP 
I9=MPC(MPI/lO 
J9=MPC( MPI-lO*I9 
IN=NEWPCS/lO 
JN = NEWPCS-lO=f=IN 
OCCSCI I9,J9)=0 
OCCSQ( IN, JNI=MVALPC(MP) 

NCHK=l 

ONPHT=0 

I f { IFOG.NE.Oi ONPHT=l 

1 FINTUPxN.NE.l ) GO TO 2371 
DO 2369 1=1,3 

DC 2369 J=l,8 
OCCSQd , J1=-CCCSQ(I,J) 

2569 CONTINUE 
2371 CONTINUE 

CALL MOVES{OPC,MPC,OCCSG,OVALPC , CATTSQ, OPOSMV, 
. CPHMV, OijpHT,MEN? ,0CA5 ,CCA ,NTURNti\CHK,ONTI 
IP(NTURN.NE.l) GO TO 3331 
DO 5382 1=1,8 
DC 3382 J=5l, 8 
OCCSQd , jI=-OCCSQd , J) 

3332 CONTINUE 
3381 CCNTINUE 
HCAS=M1 
0CAS=M2 
HENP=M3 
CENP=M4 

DC 2300 K=l,16 
MPCUU = JMPC(K) 

0PC(K)=J0PC(K) 

PVALPCI K) 5JMVLPC IK) 

2300 CCNTINUE 

DO 2400 1=1,8 
DO 2400 J=l,8 
OCCSQ( I , J) =JCCCSQ{ I , J J 
2400 CONTINUE 

DETERMINE if MOVE RESULTS IN CHECK 
If IN CHECK, MODIFY ATTSQ,PHMV 
IFINCHK.NE. 1) GO TO 3000 
OKSQ=OPC( 16) 

IFINEWPoS-EQ.CKSQ) GO TO 3000 

MATTSQl IN, JN)=MATTSG( IN, JN)-100*M.VALPC(MP)-1 
MFHHVI N) =0 
3000 CCNTINUE 

DC 3020 N=1,MNPHT 
MF=M PHMV (N) /lOO 
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IF(MP. EQ.O J GO TO 3020 

IF(MVALFC( MP) .NE.IO) GO TO 3020 

Il=MPC(MPi/iO 

J1=MPC( MP j-10«I 1 

F‘.FC=MPHMV (NJ-100*MP 

MI=MP0/10 

MJ=MPU-10^>=MI 

IF( J1 . EC.MJJ GO TO 3020 

DC 3005 L=1»MNPHT 

«14=HPHMV ( U /lOO 

IF(Mi4.EQ.0J GO TO 3005 

IF(MVALPC(M14) .EQ.32) GO TO 3002 

IF(MVALPC(Mi4) .EQ.90) GO TO 3002 

GO TO 3005 

3002 MFK = 100=t=M14+MPC(MP J 
IF(F1PHMV{L J .NE.MPM) GO TO 3005 
14=-1 

IF( Il.OT.FlI ) 14=1 
J4=-l 

IF(Jl.GT.MJ) J4=l 
13=1 UI4 
J3=J1+J4 

3003 IF(I3.LT.l) 60 TO 3005 
IF(I3.GT.8) GO TO 3005 
IF(J3.LT.i> GO TO 3005 
IF(J3.GT.G) GO TO 3005 
N5=iO*I 3+J3 

IF(MPC( .EQ.N3) GO TO 3010 
IF(CCCSQ( 13, J3) .EQ.-SO) GO TO 30C4 
IF(OCCSQ( 13, J3J .EQ.-321 GO TO 3004 
I FICCCSU 13, J3) .EQ.O) GO TO 3004 
GO TO 3C05 

3004 13=13+14 . 

J3=J3+ J4 
GC TO 5003 

3005 CONTINUE 
GC TO 3020 

3010 MNPHT = MNPHTH 

P.PHMVl r'iNPHT)=100«Ml4+MPO 

MATTSQl MI ,F'JJ=MATTSQ<MI ,MJi +100<‘KVALPC( M14) +1 
3020 CONTINUE 
M = 0 

DC 3050 N=1,MNT 
IF(MP05MV(N) .NE.O) GO TO 3025 
GO TO 3050 
3025 M=M+1 

OPHMV(M)=MPOSMV(N) 

3050 CONTINUE 
MNT=H 

DC 3100 N=1,MNT 
MPOSMV (Ni=OPHMV{N) 

3100 CONTINUE 

DO 3200 1=1,8 
DO 3200 J?rl,8 

OCCSQU , JI=OCCSQ( I, J)=!=NTUPN 
3200 CCNIINUE 
RETURN 
END 

SL6R0UT1NE P ARGE N ( JPOSMV , JN T, J ATTS G, J PA R , JV ALPC , 

. CCCSQ, JCA, JPC,KPC,NTURN, JPHMV, JNPHT) 

IMPLICIT IMEGERIOJ 

DIMENSION JPOSMV ( 75) , JATTSQ(8, 8) , J PARI 20 ) , J VALPC ( 16 ) , 
. 0CCSQ(8,8), JPCI 16),KPC(16) ,KATTSQ(8,8) ,KPHMV(75) , 

. JVI8) ,KV(8) , JPHMV(75) ,NWT(20) ,KVALPC116) ,KPOSMV(75) 
NFR=0 

IF(MURN.EQ.-l) NFR=1 

IF! JPARI 1) .NE.O) NTURN=-NTURN 

NF0G=1 

IFIJPARI U .NE.O ) NF0G=-1 
DO 10 K=l,20 
JPAR(K) =0 
10 CONTINUE 
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IF(JNT.EQ.O) GO TO 450 

PARC 1) 

JPARC 1) =JNT 

PARC2) 

DC 75 K=l,15 

JPARC 2) =JPAR(2) JVALPCCKJ 
75 CONTINUE 
PARC3i 

DO 100 K=l,8 

IFC JPC( Kl. EQ.OJ GO TO 100 
IFC JVALPCC K) .EQ.90) GO TO 100 
IF(NTUkN.EQ.-lJ GO TO 85 
lNP=(JPCCK)/10)-2 
GC TO 90 

85 IHP=7-( JPC(K)/10) 

90 JPAR(3)=JPak(3) +IHP*«2 
100 CONTINUE 
PAR(4) 

KC£N=44 

IF(NTUkN.EQ.-l) KCEN=54 

KC£NT=KCEN+1 

DO iiO K=l,8 

IFCJVALPCCK) .EQ.90J GO TO 110 
IFC JPC(K).EQ.KCEN) GO TO 104 
IF ( JPCCK] . EQ.KCENTl GO TO 106 
GC TO 110 

104 JPARC4) =JPAR(4) +10 
KTk=KCENT- 10-^NTURN 
DO 105 L=l,8 

IFC JVALPCCU .EQ.90) GO TO 105 

IFC JPCC LJ . EQ.KTR) JP AR C 4) = JPAR C 4) + 10 

105 CONTINUE 
GO TO 110 

106 JPARC4)-JPARC4)+10 
KTR = KCEi\-10=!=NTURN 
DC 107 L=l,8 

IFC JVALPCC U . EQ.90 ) GO TO 107 

IFC JPCC L) .EQ.KTR) J PAR C4) = JPARC 4 ).+ 10 

107 CONTINUE 
no CONTINUE 

DO 120 K=l,8 

IFCKPCCK) .EO.KCEN) GO TO 111 
IFCKPC(K) . EQ.KCENT) GO TO 113 
GO TO 120 

111 KTR=KCEN-ll=i=NTURN 
K35=0 

112 DO 115 L=l,8 

IFC JPCC L) -EQ.KTR) JP AR C 4 ) = J PAR C 4 ) +10 

115 CONTINUE 
IFCK35.NEI0) GO TO 120 
KTR=KCEN'-9«NTURN 
K35=l 

GC TO 112 

113 KTR=KCENT-11«NTURN 
K35=0 

114 DO lie L=l,8 

IFC JPCC L) -EQ.KTR) JPAR C 4) = JPAR C 4) +10 

116 CONTINUE 
1FCK35.NE.0) GO TO 120 
KTR=KCENT-9=:'NTURN 
K35=l 

GC TO 114 
120 CONTINUE 
PARC5) 

IK=KPCC 16)/10 
JK=KPC( 16)-10=<‘IK 
I JK=JPCC 16)/10 
J JK=JPC C 161-10*1 JK 
IFCJNT.EQ.l) JPARC5)=JPARC5)-1 
M14=0 

DO 130 K=1,JNT 
NVD=JPOSMVCK) /lOO 
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IF(NVO.NE. 16) M14=i 
IF{NVO.Nt. 16) GO TO 135 
130 CONTINUE 

135 IFIM14.EQ.0) JPARI 5) =JPAR( 5)-l 
PAK(6) 

I=IJK>NTURN 
IF(l.GT.a) GO TO 140 
IFd.LT.ll GO TO 140 
DO 140 K=l,3 
J=JJK+K-2 

IF(J.LT.l) GO TO 140 
IF(J.GT.8) GO TO 140 

IF(OCCSQ(:I , Jl.GT.O) JPARI6) = JPAR( 6) + 10 
140 CONTINUE 
PAR(7) 

IF( JCA.EQ.lOO) JPAR(7)=200 
IF4JCA. EQ.lOO) GO TO 155 
DO 150 N=1,JNT 

IF( JPOSMVIN) .EQ.98) JPARI 7)=100 
IF( JPOSMV.(N) .EQ.99) JPAR( 7) =100 
150 CONTINUE 

PARIS) 

155 DC 170 K=l,4 
L=K+8 

1F( JPCI L) .EQ.O) GO TO 170 
IF(NTURN.EQ.-l) GO TQ 160 
IFI JPCI L) -GT.18) JPARI8)=JPARI8)+10 
GO TO 170‘ 

160 IFI JPCI L) .LT.81 ) JPAKI 8) = J PARI 8 ) +10 
170 CONTINUE 

IFI JPCI 15) .EQ.O) GO TO 195 
IFINTURN.EQ.-l) GO TO 180 
IFI JPCI 15) .GT. 18) JPARI8)=JPARI8I*10 
GO TO 190 

180 IFI JPCI 15) .LT. 01 ) JPARI8)=JPARI8) + 10 
190 CONTINUE 
PARIS) 

195 DO 210 J=l,8 

IFI JATTSQI IK,J) .EQ.O) GO TO 210 
NVD=10^ IK+J 
JAT=JATTSQl IK, J)/100 
JAK= JATTSQI IK, J)-100=i=JAT 
IFIJAK.NE.l) GO TO 201 
IFI JAT.EQ.50) JPARI9)=JPARI9)+10 
IFI JAT.EQ.90) JPARI9)=JPARI9)+1U 
GO TO 210 

201 JPARI9)=JPARI9)+10 
IFIOCCSCt IK, J) .GT.O) GO TO 205 
DO 204 N=1,JNT 
H14 =JPOSnVIN)/100 
IFIM14.EQ.0) GO TO 204 

IFI JVALPCIM14) .EQ.50) GO TO 202 
IFI JVALPCI M14) .EQ.90) GO TO 202 
GO TO 204 

202 LP2=JP0SMVIN)-100*M14 
IFILP2.EQ.NVD) J PARI9) JPARI 9) + 10 

204 CONTINUE 

205 DO 208 K=1,JNPHT 
M14=JPHMV IN) /lOO 

IFI JVALPCIM14) .EQ.50) GO TO 206 
IFI JVALPCI M14) .EQ.90) GO TO 206 
60 TO 208 

206 LP2=JPHPVIN)-100*M14 

1FILP2. ELi.NVD) J pari 9) =JPARI9) + 10 
208 CONTINUE 
210 CONTINUE 

I=IK-NTUKN 

IFII.GT.8J GO TO 219 
IFI I .LT. IJ GO TO 219 
DO 219 K=l,3 
NAD=10 

IFIK.EQ.2) NAD=5 
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1= 4-k — 0 

IFiJ.LT.lJ GO TO 219 
lF(J.Gf.6) GO TO 219 
NV0=10* I+J 

IF( JATTSgn , J) .cQ.O) GO TO 219 
JAT=JATTSQ( 1 , J J/100 
JAK=JATTSi:j( 1 , J J-100* JAT 
IF(JAK.NE.l) GO TO 211 
IF( JAT . eC.32) JPAR(9) = JPAP.( 9H-NAD 
IF( JAT.EQ.90i JPAR(9)=JPAR(9)+i\AD 
IF( JAT .EQ.50) JPAR(9)=JPAR1 9i*-NAD 
GO TO 219 

211 JRAR(9)=JPAR(9)4-iNA0 

I F(OCCSC( I ,J ) .GT.O) GO TO 215 
DO 214 N=1,JKT 
M14= JPOSMV(l\i) /lOO 
IF(M14.EG.O) GO TO 214 
IF( JVALPC(M14).EQ.32i GO TO 212 
IF( JVALPC(rtl4) .EQ.90) GO TO 212 
I F{ JVALPCt M14) .EQ.50) GO TO 212 
60 TO 214 

212 LP2=JPOSMV(N)-100«M14 

IF(LP2 . EQ.NVD) J P AR 1 9 ) = JP AR ( 9 ) +NAD 

214 CONTINUE 

215 00 218 N=1,JNPHT 
MI4=JPliNV(N) /I 00 

IF( JVALFC(N14) .EQ.32) GO TO 216 
IF( JVALPC.1H14) .EQ.90) GO TO 216 
IF(JVALPC(M14) .EQ.50) GO TO 216 
GO TO 218 

216 LP2=JPhMV(N)-100=!'M14 

IF(LP2. EQ..NVO) JPAR( 9) = JPAR(9H-NAD 

218 CONTINUE 

219 CONTINUE 
PARI 10) 

DC 220 K=l, 15 

IFIKPCI K) .EQ.O) GO TO 220 

IK=KPC( K)/ 10 

jK=KPCI K)-10«IK 

IF{ JATTSQI IK, JK) .GT.O) JPAR I 10 ) = JP AR ( 10 ) +10 

220 CONTINUE 
PAR(ll) 

00 224 K=I,8 

IF(JPCIK) .EQ.Oi GO TO 224 
IF(JPCIK) .EQ.90) GO TO 224 
.I=JPC(K )/10 
J = JPC(K)-10«=I 
DO 222 L=1 ,5 
I=I+NTURN 

IFU.GT.71 GO TO 224 
IF(1.LT.2) GO TO 224 

IFIOCCSQI I , J) .EQ .-10) JPARI 1 1) = JPAR ( 11) -10 
IFIOCCSCU, Jl.EQ.-lO) GO TO 224 
222 CONTINUE 

224 CONTINUE 
IFINFR.NEil) GO TO 230 
DO 225 1=1,6 

DO 225 J=l,6 

KATTSQI I ,J) = JATTSQ(I , J) 

225 CONTINUE 
KNPHT=JNPHT 

DO 223 N=1,JNPHT 
KPHKVIN )=JPHNV(N) 

228 CONTINUE 
KNT=JNT 

DC 227 N=1,JNT 
KPCSMVI N)= JPOSHV(N) 

227 CONTINUE 

DC 229 K=1,16 
KVALPC(K)=JVALPC(K) 

229 CONTINUE 
GC TO 400 
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PAft( 12) 

230 JtiCRST = 0 

DO 300 K=l,15 
IF(KPC(K).EQ.O) GO TO 300 
IM=KPC(K)/ 10 
JP = KPC( K)-10=i'IM 

KAT=KATTSU( IM, JM)- ( KATTSQ( I M , JM ) / 1C ) * 10 
IF< JAITSQtliM, JM) .NE.O) GO TO 235 
JFAR( 12) =JPAR( 12) + IOS'KA T 
GO TO 300 

235 JAT=JATTSQ( Irt, JM)-( JATTSQ( IM, JM)/10)«10 
LCST=I AbS (OCCSU( IM, JM) ) 

IF(KAT.NE.O) GO TO 240 
I F(LuST .GI .JKGRST) JWORST=LOST 
GO TO 300 

240 IF(JAT.NEil) GO TO 245 

IF( JATTSGl IM, JM) .GT.SOOOOO) GO TO 244 
LGA IN= JATT SQ ( I M , JM ) / 1 00 
IFILOST .GT .LGAIN) GO TO 242 
JPAR( 12) =JPAR( 12) +LGA IN-LOST 
GO ro 300 

242 LCST=LOST-LGAIN 

IF(LGST.GT.JWORST) JWORST=LOST 
Gt TO 300 

244 JPARI 12 )=JPAR( 12 )+l0 
GO TO 300 

245 IFIKAT.GE. JAT) GO TO 270 
DC 246 N=l,8 

JV(N)=0 

246 CONTINUE 
L = 0 

DO 250 N=l,JNT 

KMV=JPGSMV(N)-i JPOSMVI N) /100)*i00 

IFIKMV. NE. KPC(K) ) GO TO 250 

KC=( JPCSMV(N)-KMV)/100 

I5=JPC( KC) /lO 

J5=JPC(KC)-10«I5 

L=L + 1 

JV(L)=I AbSIOCCSQI I5,J5) ) 

250 CCNTIMUE 
L = 0 

KT5=JAT-1 

DC 255 M=1,KT5 

L=L+1 

KL=15000 

DO 253 N=L,JAT 

IF( JV(N) .LE.KL) KL=JV(N) 

IF( JV(N) .LE.KL) KN=N 
253 CONTINUE 
KSA=JVI L) 

JV(L)=KL 
JV(KN) =KSA 
255 CONTINUE 

IF(KATTSQ( IM,JM) ,GT. 900000) GO TO 265 

259 LCST=lAbSICCCSQ( IM,JM) )+KATTSQ(IM,JM)/l00 
LGA1N=0 

DO 260 L=1,KAT 
LGAIN=LGAIN+JV( L) 

260 CONTINUE 

IFILGST .GT .LGAIN) GO TO 262 
J PAP.( 12 )= JPARI 12 I+LGA IN-LOST. 

GO TO 300 

262 LOST=LOST-LGAIN 

IFILOST .GT. JWORST) JWORST=LOST 
GC TO 300 
265 KAT=KAT-1 
GO TO 259 

270 DO 271 N=l,8 
KV(N)=0 

271 CCNTINUE 
L = 0 

DC 275 N=1,KNPHT 
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KMV=KPHMV (Ni-(KPHMV(N)/100J«100 
IF(KMV.NE*KPC(K)) GO TO 275 
KC=(KPHMV(N>'KMV)/100 
I 5=KPC( KC J /lO 
J5 = KFC( KC)-10’!‘I 5 
L = L^-1 

KV( U =IA8S(OCCSQ( 15, J5JJ 
275 CONTINUE 
L=0 

KT5=KAT-1 
DC 280 M=1,KT5 
L = L + 1 
KL=15000 
DC 278 N=L,KAT 
IF(KV( N) .LE.KU KL=KV(NJ 
1F(KV(NJ .LE.KL) KN=N 
278 CCNTINUE 
KSA=KV( L) 

KV( U=KL 
KV( KM =KSA 

280 CONTINUE 

IF( JATTSQI IM,JM) .GT. 900000) GO TO 290 

281 LGAIN= JATTSUdM, JM)/100 
LCST=I A8S(0CCSU( IM.JM) ) 

JAT=JAT-1 

DO 285 L=1,JAT 
LCST=LOSTFKV(U 
285 CONTINUE 

IF(LCST.GT.LGAIN) GO TO 288 
J PAR ( 12 J=JPAR( 12 J+LGA IN-LUST 
GO TO 300 

288 LOST=LOST-LGAIN 

IF(LOST.GI.JWORST) JWORST=LOST 
GO TO 300 
290 JAT=JAT-i 
GC TO 281 
300 CCNTINUE 

IF( JWDRST.EQ.O) GO TO 400 
JPAR( 12)=-100*JWORST 
4C0 JPAR( 12)=-JPARi 12) /lO 
NTWT=NFR^NFOG 
IFINTWT .NE.l ) GO TO 408 
READ(5,405) ( NWT ( K) , K=i , 17 ) 

405 FCRMAT(1714) 

PAR( 13) 

408 IFINFR.EQil) GO TO 442 
DC 430 K=8,16 
I=KPC(K)/10 

I 1=I-NTURN 

IF( I1.GT.6) GO TO 430 
IF(I1.LT.3) GO TO 430 
J=KPC( K)-10*I 
J1=J-1 

IF(Jl.LT.l) GO TO 416 
414 NVD=10*I1EJ1 

DO 410 L=i,JNT 
M14=JPOSMV(L)/lOO 
IF(M14. EQ*0) GO TO 410 
IFIM14.GT.8) GO TO 410 
IF(JVALPC(H14) .NE. 10) GO TO 410 
N2=JP0SNVI L)-100#M14 
IF( N2.EG.NVD) GO TO 409 
GO TO 410 

409 IF( JATTSQ(I1,J1).NE.0) GO TO 412 
12=11 

413 I2=I2-NTURN 

IF(I2.GT.8) GO TO 417 
IF(I2.LT.i) GO TO 417 
IF(0CCSQU2, JI ) .EQ.O) GO TO 413 
1F(GCCSQ( 12, J1 ) .EQ. 10) GO TO 413 
1F(0CCSQ( I 2, Jl) .E0.90) GO TO 412 
IF{0CCSQU2, Jl) .EQ.50) GO TO 412 
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417 IF(KATTSUU1, J1 ) .NE.O) GO TO 416 
JPAR( 13)-JPAK( 13 ) + 10 
GC TO 416 
412 N43=0 

DC 415 N=1,KNPHT 

LP2=KPHMV(NJ /lOO 

i F(KVALPC( LP2i .NE. 10) GO TO 415 

N21=KPHMVTiN)-100*LP2 

IF(N31.NE^NV0J GO TO 415 

N43=l 

415 CONTINUE 

IF(N43.EQ.0i JPAR( 13}=JPAR( 13) +10 
410 CONTINUE 

416 IF(J.LT.Jl) GO TO 430 
Ji=J+l 

IF(J.GT.81 GO TO 430 
GC TO 414 
430 CONTINUE 
PARI 14) 

DO 475 J=l,8 
I=KPC( 16)/10 
I l = I 

452 I=I'NTURN 

IF( I .GT-8) GO TO 475 
IF(I.OT.l) GO TO 475 
M14=10* I+J 
DC 455 N=1,JNT 

I F( JPOSMV(N) .LT. 100) GO TO 455 
NVD=JP0SMV(N)/100 
LF2=JP0SNV(N)-100*NVD 
IFU.P2.NE.M14) GO TO 455 
IFUVALPC(NVD) .EQ.90) GO TO 453 
IF( JVALPCINVD) .EQ. 50) GO TO 453 
GO TO 455 

453 IFIKATTSOn , J) .NE.O) GO TO 455 
J3=JPC(NV0)-( JPCINVO I/IOI^MO 
IF( J3. EG. J ) GO TO 455 

JPAR( 14)=JPAR( 14)+10 

JAT=JATTSQ( 11, J)-( JATTSQI I 1 , J ) / 100 ) *100 
JAT=JAT+1 

KAT=KATISQ( I 1 , J ) - ( KATTSGI 1 1 , J ) / 1 00) *1 00 
IF( JAT.GT.KAT) JPARI 14)=JPARI 14)+50 
455 CONTINUE 

IFIOCCSCU , J) .EQ.O) GO TO 452 
I5 = IA3S I I-Il ) 

IF(I5.Nc.i) GO TO 475 
J5=KPC( 16)-iO*I 1 
DC 460 M=1 ,3 
Ji=J5+M-2 

IF(Jl.LT.l) Jl=Jl+3 
IF(J1.GT.8) J1=J1^3 
IF(J.EQ.Jl) GO TO 452 
460 CONTINUE 
475 CONTINUE 
PARI 15) 

DC 525 K=l,3 
I=KPCI 16)/10 
J=KPCC 16)“10*I 
I 1=I-NTURN 
Jl=J+K-2 

IFIJ1.lt. 1) Jl=Jl+3 
IFIJ1.GT.8) Jl=Jl-3 
J5=-l 

I3=U-NTURN 
J3 = J1 

524. IFII3.GT.8) GO TO 526 
1 FI I3..LT.1 ) GO TO 526 
J 3 — J3+ J 5 

IFIJ3.lt. 1) GO TO 526 
IFIJ3.GT.8) GO TO 526 
LF2=10*I3+J3 
DC 535 N=1,JNT 



M14=JPCSMV(NJ /lOO 
NVD=JPOSMV(NI-100*M14 
IF(NVD./ME.LP2) GO TO 535 
IF(KATTSQ( 13, J3) .NE.04 GO TO 535 
IFUVALPCt GO TO 529 

IF( JVALPC(Mi^) .EQ.32) GO TO 529 
GO TO 535 
.529 M18=0 

OC 531 M=1,JNT 
M15=JP05MV(Mi /lOO 
«16=JP0SMV(M)-100*M15 
lF(F‘il5.NE.Mi^) GO TO 531 
M17 = 10« 1 H- J1 
1F(H16.EQ.H17) M18=l 
531 CONTINUE 

IF(N13.NE.O) GO TO 535 

534 JPAR( 15J=JPAR( i5J+10 

JAT = JaTTSQ( I1,J1 )-{ JATTSQ( I 1 , J 1 J / lOU i =i=l 00 
JAt=JAT+l 

KAT=KATTSQtIl, J1 )-(KATTSQ( I 1 , J i J / 100 ) *1 00 
IF( JAT.GT.KAT) JPAR( 15)=JPARil5)+50 

535 CCNTI.NUE 
I3=13-NTURN 
GC TO 5^24 

526 IF(J5.EQ.l) GO TO 525 
J5=l 

13=I1-NTURN 
J3=J1 
GC TO 524 
525 CONTINUE 
PARI16J 

OC 575 J=l,8 
I-JPC( 161/10 
11=1 

552 1=I+NTURN 
IFd.GT.8) GO TO 575 
IFd.LT.i) GO TO 575 
M14=10--^ I+J 

DC 555 N=1,KNT 

I F(KPOSMV(N) .LT. 100) GO TO 555 
NVO=KPOSMV< N)/l 00 
LF2=KP0SHV(N}-100*NVD 
IF(LP2.NE.fU4) GO TO 555 
IF(KVALFC(NVD}.£Q.90> GO TO 553 
IFI KVALPU NVD) .EQ.50) GO TO 553 
GC TO 555 

553 IF( JATTSQd , J) .NE.O) GO TO 555 
J3=KPC( NVU)-(KPC(NVD )/10)*10 
IFU3.EQ.J) GC TO 555 

JPAR( 16)=JPAR( 16)-10 

JAT=JATTSQ( II, J)-( JATTSQI 1 1 , J ) / 100) *100 
KAT=KATTSQ( I 1 , J ) - ( KATTSQI 1 1 , J ) / 100 )*100 
KAT=KATi-l 

IF(KAT.GTi.JAT) J P AR ( 1 6 ) = JP AR (16 ) -50 
555 CONTINUE 

IFIOCCSCd , J) .EQ.O) GO TO 552 
I5=IABSd-Il) 

I F(I5.NE.l ) GO TO 575 
J5=JPCl 161-10*1 1 
DC 5oO M=l,3 
Jl=J5+M-2 

IF(Jl.LT.l) J1 = JU3 
IF(Ji.GT.d) Jl=Jl-3 
IF<J.EU.Ji) GO TO 552 
560 CONTINUE 
575 CONTINUE 
PAR(17) 

DO g25 K=1,3 
I=JPC( 161/10 
J=JPC( 16)-10*I 
I 1=I+NTURN 
Jl = J<-K-2 
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IF(Jl.LT.l) Jl=Jl+3 
IF(J1.GT.8) Jl=Jl-3 
J5=-l 

13=1 1+-MURN 
J3 = J1 

624 IF(I3.GT.8) GO TO 626 
IF( I3.LT.1 J GU TO 626 
J3=J3+J5 

iF(J3.LT.l) GO TO 626 
IF(J3.GT.6J GO TO 626 
LP2=iO<=I3i-J3 
DO 635 N=1,KNT 
«14=KPCSHV(N)/100 
NVO=KP0SMV(N)-100=«=M14 
IF(NVO.N£iUP2 J GO TO 635 
IF( JATTSQ( 13, J3J .NE.O) GO TO 635 
IF(KVALFC.(M14) .EQ.90) GO TO 629 
IF(KVALPC(M14) .EQ.32J GO TO 629 
GO TO 635 
629 M18=0 

DO 631 M=1 ,KNT 
M15=KP0SMV(M)/100 
M16=KP0SHV(M)-i00*M15 
IF(M15.NE.M14) GO TO 631 
M17= 10«I li- J1 
IF(M16.EQ.M17) M18=l 
631 CONTINUE 

IF(f'118.NEiO) GO TO 635 

634 JPAR( 17)=JPAR( 17)-10 

JAT = JATTSQ( I 1 , JU-( JATTSQU 1, J1 )/100)*100 
KAT=KATTSQ( 1 1, J1 )'(KATTSQ( I 1 , J 1 ) / 100) *1 00 
KAT=KAT+1 

IF(KAT.GTi JAT) JPAR( 1 7 ) = J PAR ( 1 7 ) -50 

635 CONTINUE 
I3=I3+NTURN 
GO TO 624 

626 IFlJ5.EQ.li GO TO 625 
J5=l 

I3=I1+NTURN 
J3 = J1 
GC TO 624 

625 CONTINUE 
PAR(20J 

442 DO 444 K=l,16 

JPAR( 20 ) = JPAk< 20)+JPAR(Ki=!=NWT(K) 

444 CCNTINUE 
450 RETURN 
END 

SLBROUT INE MOVES (M PC, CPC, OCCSQ, JVALPC, MATTS Q, MPOSMV, 
. MPHMV , MN RHT , CEN P , MCA S , MC A , NTU RN , NCHK , HNT ) 

JPPLICIT INTEGER (0) 

DIMENSION MPC(16) ,0PC(16) , OCCSQ ( 8 , 8 ) , JV AL PC ( 1 6 ) , 

. MATTSQ18 ,3) ,MP0SMV(75) ,MPHMV(75) 

DO 50 1=1,8 
DO 50 J=l,8 
MATTSQI I ,U)=0 

OCCSQ ( I , J J=OCCSQ( I , J)*NTURN 
50 CONTINUE 
N=0 
NN=0 

IF(NTURN.EQ.-1 ) GO TO 65 
KINGSQ = 0PCa6) 

GC TO 70 

65 K1NGSQ=MPC ( 16) 

70 IF(NCHK.EQ.O) KINGSQ=0 
NCHK=0 

DC 2000 K=l,lto 
IF(NTURN.EQ.-1 ) GO TO 75 
IF<MPC( K) .EQ.O) GO TO 2000 
NPOS=MPC(K) 

GO TO 100 

75 If (CPC( Ki .EQ.O) GO TO 2000 
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NPGS=OPC(K} 

100 IP=NPUS/10 

JP = NPOS-10=i=IP 
IF(K.Gr.8l GO rO 1100 
IF( JVALPC(KJ .EQ.90 ) GO TO 1400 
PAWN MOVES 

IF (MNPHT.NE.OJ NTURN=-NTURN 
I=IP+NTURN 

IF(OCCSQ( I, JP).NE.O) GO TO 1010 
N=N + 1 

FPCSMV( N)=K«100+10*I+JP 
NCP=NTUBN’S‘ ( 2^=1 P-9) <-5 
IF( NCP.NE.OJ GO TO 1010 
1=I+NTUKN 

IF(CCCSQ( I, JP).NE.O) GO TO 1010 
N=N+1 

MPOSMVl N) =K*1 00+10* n-JP 
1010 I=IP + NTURN 

IF(HNPHT.NE.O) NTURN=-NTURN 
J = JP-1 

IF(J.LE.O) GO TO 1030 

1020 MATTSQ( I , J ) = MATT SO ( I , J ) +100 * JVAL PC ( K) +1 
NN=NN+1 

MPHMV(NN)=5K*100+10*I+J 
MSQ=10* 1 +J 

IF(MSQ,£Q..KINGSQ ) GO TO 2400 
IF(OCCSQ( 1,J) .GE.O) GO TO 1025 
IF(OCCSQ( i , J) .EU.-9900) GO TO 1025 
N=N + 1 

MPOSMV( N } = K* 1 00 + 1 0*1 +J 
IF (MPOSMVJN) .E J.MPHMV (NN) ) NN=NN-1 
1025 IFIJ.GT.JP) GO TO 2000 
1030 J=JP+1 

IF(J.G£.91 GO TO 2000 
GC TO 1020 
KNIGHT MOVES 

1100 IF(K.GT.IO) GO TO 1200 
I=IP+1 
J=JP+2 

ASSIGN 1110 TO MAR 
GO TO 1185 
1110 J=JP"2 

ASSIGN 1120 TO MAR 
GO TO 1185 
1120 I=IP+2 
J=JP+1 

ASSIGN 1130 TO MAR 
GO TO '1185 
1130 J=JP-1 

ASSIGN 1140 TO MAR 
GC TO 1185 
1140 1 = 1 P-1 
J=JP-2 

ASSIGN 1150 TO MAR 
GO TO 1185 
1150 J=JP+2 

ASSIGN 1160 TO MAR 
GO TO 1185 
1160 I=IP-2 
J=JP-l 

ASSIGN IIJO TO MAR 
GO TO 1185 
1170 J=JP+1 

ASSIGN 2000 TO MAR 
1185 NKC=I*J 

IF(NKC.LE.O) GO TO 1189 
I F( I .GT .8) GO TO 1189 
IF(J.GT.8J GO TO 1189 

MATTSQI I, J)=MATTSQ( I , J ) +100 *J VAL PC ( K ) + 1 
NN=NN+1 

MFHMV (NN)=K*100+ 10*I+J 
MSG=10*I +J 
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IF(MSQ.eQ.KINGSU) GO TO 2400 
I F(OCCSQU , J ) .GT ,0J GO TO 1169 
IF(0CCSQ(1 , J) .EQ.-9900) GO TO 1189 
N = N<-1 

«PGSMV(N') = 100*K*-10*I+J 
I F.(MPOSMV( N) .EQ.MPH^5V (NN) ) NN=NN-1 
1189 GO TO MAR, (1110, 1120, 1130,1140,1150,1160,1170,2000) 
BISHOP ROVES 

1200 IF(K.GT.12) GO TO 1300 
NQ=0 

1201 NCB=0 
ND=0 

1 = IP 
J = JP 

1202 1=1+1 

IFd.GT.8) GO TO 1210 
J = J+1 

IF(J.GT.6) GO TO 1210 
IF(CCXSCU ,J ).EQ.O) GO TO 1205 
IF(OCCSC( 1 , J ) .LT. U) NDB=0 
iFlGCCSQd ,J).EQ.90) HUS=1 
IF(OCCSQ( I, J ) .00.80) NDb=l 
lF(OCCSCd , J) .EQ.32) NDB=1 
1F(NU8.EQ-1) N0=1 
IF(NDB.tQ.i) GO TO 1205 
ASSIGN 1210 TO MAR 
GO TO 1280 

1205 ASSIGN 1202 TO MAR 
GO TO 1280 
1210 NCB=0 
ND=0 
1=1P 
J = JP 

1215 1=1-1 

IFd.LE.O) GO TO 1220 
J = J-1 

IF(J.LE.O). GO TO 1220 
IF(OCCSQ( 1,J) .EQ.O) GO TO 1218 
Ir(OCCSQ( i , J ) .LT.O) N0B=0 
IF(OCCSQd , JJ .EQ.90) NOB=l 
IFIOCCSQd , J) .£0.80) N06=l 
IF(OCCSQ(I , J) .EQ.32) NDB=1 
1F(NDB.EQ.1 ) ND=i 
iFINOB.EQ.l) GO TO 1218 
ASSIGN 1220 TO MAR 
GO TO 1280 

1218 ASSIGN 1215 TO MAR 
GO TO 1280 
1220 NCB=0 
ND=0 
1 = 1P 
J = JP 

1225 1=1+1 

IF( 1.GT.8) GO TO 1230 
J = J-1 

1F(J.LE.01 GO TO 1230 
IF(CCCSQ( 1,J) .EQ.O) GO TO 1228 
IF(OCCSQ( l,J).LT.O) NOB=0 
1 F(OCCSQ( I ,J ).EQ. 90) NDB=1 
1F(0CCS(.( i, J) .EQ.80) NDB=1 
1 F(OCCSQ( 1 , J) .EQ.32) N0B=1 
IF(NDB.EQ.l) ND=1 
1F(ND8.£Q.1) GO TO 1228 
ASSIGN 1230 TO MAR 
GO 70 1280 

1228 ASSIGN l225 TO MAR 
GC TO 1280 
1230 NDB=0 
N0=0 
I = IP 
J = JP 

1235 1=1-1 
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1F( I.LE.Oi GO TO 1290 
J-J + 1 

JF1J.GT.81 GO TO 1290 
IF(OCCSO( I , JJ .EQ.O) GO TO 1238 
If (OCCSQ( i,J) .LT.O) NDB=0 
IFIOCCSOU , JJ .EQ.90) ND8=1 
If (OCCSQ( -It J) .tQ.aOJ N0B=1 
IF(OCCSQ(-I , JJ .EQ.32) NDB=1 
IFCNDB.EQ.n ND=1 
IF(NDB. EQ. 1) GO TO 1238 
ASSIGN 1290 TO MAR 
GO TO U80 

1233 ASSIGN 1233 TO MAR 

1280 IF<OCCSQ( I , J) .GT.O) GO TO 1285 

IF(OCCSQ( I , J) .EQ.-9900I GO TO 1285 
If(NO.cQ.l) GO TO 1285 
N = N+1 

MPCSMVI N)=?100«K+ 10«i+J 

1285 MATTSQI It JI=MATTSQ( I , J ) +1 00 « JV ALPC ( K) +1 
NN=NN+1 

MPHMV(NN)=?K«100+10=«'I+J 
IFIHPOSMVINI .EQ.MPHMV(NN) ) NN=NN-1 
MSQ=10*H-J 

IFIMSQ. EQ..KINGSQ) GO TO 2400 
NDB = 0 

GO TO MAR, (1210, 1202, 1220tl215»1230, 1225, I290»1235) 
1290 IF(NQ.EQ.O) GO TO 2000 
GO TO 1301 
ROCK MOVES 

1300 IF(K.GT.14) GO TO 1400 

1301 NDR=0 
ND=0 

I = IP 
J = JP 

1305 1=1+1 

IFd.GT.S) GO TO 1310 
If(OCCSQ( I,J).£Q.OJ GO TO 1308 
IF(OCCSQ( i,Ji .Lf.O) NDR=0 
If (OCCSOI I , J J .EQ.50) NDR=1 
lF(0CCSQ(i,J).EQ.90} NDR=i 
I F(OCCSQ( I , J) .EQ.80) NDR=1 
IF(NDR.EQ*li N0=1 
IF(NDR. EQ-U GO TO 1308 
ASSIGN 1310 TO MAR 
GO TO 1380 

1308 ASSIGN 1305 TO MAR 
GO TO 1380 
1310 NDR=0 
ND=0 
I = IP 

1315 1=1-1 

IF(I.LE.O) GO TO 1320 
IF<OCCSQ{ I , JJ .cQ.OJ GO TO 1318 
IF(OCCSQ( I,J).LT.O) NDR=0 
IF(OCCSG(I , J ) .E0.50J NOR=l 
I FIOCCSQU , J) .EQ.90) NUR=1 
If (OCCSQ( I , J) .EQ.80} NDR=1 
IF(NUR.EQ.i) NO=l 
IF (isIDR. EQ* I } GO TO 1318 
ASSIGN 1320 TO MAR 
GO TO 1380 

1318 ASSIGN 1315 TO MAR 
GO TO 1380 
1320 NDR=0 
N0=0 
I=IP 
J = JP 

1325 J=J+1 

IF(J.GT.8J GO TO 1330 
If (UCCSQ( 1 , J ) .EQ.O) GO TO 1328 
If(JCCSG(I,J).LT.O} NOR=0 
I F(OCCSQ( i , J> .EQ.50) NDR=1 
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IF(OCCSC( i f J).EQ.90) NDR=l 
I F(0CC6U( I , Ji .EQ,80) NDR=1 
IF(N0R.EQ*1) NU=1 
IF(NDR. EQ. U GO TO 1328 
ASSIGN 1330 TO MAR 
GO TO 1380 

1328 ASSIGN 1325 TO MAR 
GC TO 1380 
1330 N0R=0 
N0=0 
I = IP 
J = JP 

1335 J=J-1 

IF(J.LE.01 GO TO 1390 
IF(OCCSQ( I , J J . EQ .0} GO TO 1338 
IF(CCC5GU , J > .LT.O) NDR=0 
IFCOCCSCU , J) .EQ.50) N0R=1 
I F<OCCSQU , J 1 .EQ .90i N0R=1 
IF(OCCSQ( 1 , J1 .EQ.80) NQR=1 
IF (NOR. EC. 1) ND=1 
IF(NDR. EQ. 1) GO TO 1338 
ASSIGN 1390 TO MAR 
GO TO 1380 

1338 ASSIGN 1335 TO MAR 

1380 IFICCCSCU , J J .GF.Ol GO TO 1385 

IF(OCCSC( I ,J).EQ.-9900i GO TO 1385 

IF(ND.EQ.l) GO TO 1335 

N=N+l 

MPCSMV( N) ^10C>!=K^-10’i‘I+J 

1385 MATrSQ( I ,JI = MATTSQ( I , J ) +1 00 JV AL PC (K ) f 1 
KN=NN+1 

MPHPV (NN) - K=^10G + 10*I+J 
IF(MPQSMV(N) .EQ. MPHMV (NN) J NN=NN-1 
IF(OCCSQ(i,Jl.N6.9900) GO TO 1368 
IFIND.EQ.il GO TO 1388 
CASTLE MOVES 

lF(K.Ne.l3> GO TO 1386 
IF(MCAS .GT.O) GO TO 1338 
IF(MCA.G£.50} GO TO 1388 
N = N*1 

MPCSMV(N)=f98 

1366 IF(K.N£.14) GO TO 1338 

IF(MCAS.LT.O) GO TO 1388 
IF(MCAS.GT.l ) GO TO 1388 
IF(MCA. GE^50I GO TO 1388 
N=N+1 

MPOSMV( N)=99 
1388 MSC=10*I+J 

IHMSQ. EQ.KINGSQ) GO TO 2400 
NDR=0 

GO TO MAR, (1310,1305,1320,1315,1330,1325,1390,1335) 
1390 IF(NQ.EQ.O) GO TO 2000 
GC TO 1401 
QUEEN MOVES 

14C0 IF(K.GT.15) GO TO 1500 
NC = 1 

GC TO 1201 
1401 NQ=0 

GO TO 2000 
KING MOVES 

1500 I=IP+1 

1501 J=JP 

IF( I .GT .8) GO TO 1530 
ASSIGN 1510 TO MAR 
GC TO 1590 
1510 J=JP-1 

IFIJ.LE.OJ GO ro 1520 
ASSIGN 1520 TO MAR 
GC TO 1590 
1520 J=JP+1 

IF(J.GT.3J GO TO 1530 
ASSIGN 1530 TO MAR 
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GO TO 1590 

1530 IF(i.LT.IP) GO TO 1540 
I=IP-1 

IF( I.LE.Ol GO TO 1540 
GO TO 1501 
1540 I=IP 

J=JP-1 

IF(J.L£.OJ GO TO 1550 
ASSIGN 1550 TO MAR 
GO TO 1590 
1550 J=JPfl 

IFIJ.GT.81 GO TO 2000 
ASSIGN 2000 TO MAR 
1590 IFIOCCSGd ,J) .GT.OJ GO TO 1595 
N=N+1 

WPCSMV(N) =100«K+10«i+J 

1595 MATTSQI I, J) = MATTSg( I ,JH-100*JVALPC{K)+1 
MSQ=10=^=I+J 

1F(MSQ.EQ*KINGSQ) GO TO 2400 

GO TO MARt ( 1510, 1520, 1530, 1550 ,2000) 

2000 CONTINUE 
NT=N 
NPHT=NN 
GO TO 2450 
2400 NCHK=1 
EN PASSANT MOVES 
2450 IF(CENP.EQ.O) GO TO 3500 
0FNl=OENF/100 
OKL=OEKP-100=!^GPN1 
IPK=0KL/10 
JFN=0KL-10«IPN 
J=JPN-1 

3010 IFIJ.LE.OI GO TO 3060 
IFU.GT.S) GO TO 3500 
OCSw=OCCSQI I PN, J )-'!=NTURN 
IF(OCSG.NE.IO) GO TO 3060 
0Q1=10*1PN+J 

IF<NTURN.£0.-i) GO TO 3040 
L=0 

DC 3020 K-1,16 
IFIMPCI K) iEQ.OUl ) L=K 
3020 CONTINUE 
NT=NT+1 

M PC SMV ( N T ) = 1 00*L 1 0* ( I PN f 1 J PN 

MATTSQI IPN,JPN)=MATTSQ( I PN , JPN ) + 100«J VA LPC ( LH-1 
GC TO 3060 
3040 L=0 

DC 3050 K=t 1,16 
IFIOPCI K).£Q.OQl ) L=K 
3050 CONTINUE 
NT = NT.+ 1 

MFOSMVI NT) = 100*L*-10=<=( IPN-D+JPN 

MATTSQI IPN, JPN)=HaTT5Q( IPN, JPN) + 100*JVALPC ( L) +1 
3060 IF(J.GT.JPN) GO TO 3500 
J=JPN+ 1 
GC TO 3010 
3500 PKT=NT 

MNPHT=NPHT 
DC 2100 1^1,8 
DC 2100 J=l,8 

OCCSQ I I , J ) =OCCSQI I , J ) >!‘NTURN 
2100 CONTINUE 
RETURN 
END 

PROGRAM PRO 

DIMENSION NHT( 18) ,NPAR( 18) 

READ(8,i00) (NWf IK ) ,K=1 ,13) 

100 FORMAT! 1814) 

R£AD(8,100) (MPAR(K) ,K=1,18) 

REA0(8,200) LA 
200 F0FMAT!I4) 

REA0(B,200) LE 
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READ(8t20jO) N 
DO 300 K=l,13 

NhT(K) = 10*NWT(Ki + (LA*LE=<‘NPAR(K)=i'10J/(N + l ) 
NWT(K) =NWT(K}/10 
300 CONTINUE 

WRITE(t>,400) (NS 
WRITE(6,400) (NWT( KJ ,K=1, 101 
400 FCPMAr(2X,l8I4) 

SR 

STOP 

ENC 
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